diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas
index f2505756..19be598a 100644
--- a/src/ce_projgroup.pas
+++ b/src/ce_projgroup.pas
@@ -697,7 +697,7 @@ begin
   if projectGroup.projectCount > 0 then
   begin
     i := projectGroup.getProjectIndex;
-    if i > projectGroup.projectCount then
+    if i > projectGroup.projectCount - 1 then
       i := projectGroup.projectCount-1;
     lstProj.ItemIndex:= i;
   end;