@@ -399,7 +399,7 @@ procedure TScProjGLJGather.ClearProjList;
var
I: Integer;
begin
- if FIsCompareGather then
+ if not FIsCompareGather then
for I := 0 to FProjects.Count - 1 do