diff --git a/src/ce_project.pas b/src/ce_project.pas
index 2b4c8ad8..98273150 100644
--- a/src/ce_project.pas
+++ b/src/ce_project.pas
@@ -300,6 +300,8 @@ begin
       result := getAbsoluteFilename(result);
     exit;
   end;
+  if Sources.Count = 0 then
+    exit;
   result := extractFilename(Sources.Strings[0]);
   result := result[1..length(result) - length(extractFileExt(result))];
   result := extractFilePath(fileName) + DirectorySeparator + result + exeExt;