diff --git a/src/ce_projutils.pas b/src/ce_projutils.pas
index 1cabd10a..eebcceff 100644
--- a/src/ce_projutils.pas
+++ b/src/ce_projutils.pas
@@ -243,7 +243,15 @@ begin
       end;
     end;
     deleteDups(lst);
-    if project.sourcesCount = 0 then
+    // issue 300 when no moduleDeclaration lst can be empty
+    if (lst.Count = 0) and (project.sourcesCount > 0) then
+    begin
+      for i := 0 to project.sourcesCount-1 do
+        lst.Add(project.sourceAbsolute(i));
+      result := commonFolder(lst);
+      result := result.extractFileDir;
+    end
+    else if (project.sourcesCount = 0) then
       result := ''
     else
     begin