diff --git a/Projects/Simba/Simba.inc b/Projects/Simba/Simba.inc
index d8ec62b62..ee530c929 100644
--- a/Projects/Simba/Simba.inc
+++ b/Projects/Simba/Simba.inc
@@ -26,6 +26,8 @@
                             // See Units/Linux/keybinder.pas
 {$ENDIF}
 
+//{$DEFINE SIMBA_VERBOSE} // For more verbosity.
+
 //{$DEFINE USE_RUTIS}
 
 //{$DEFINE USE_CPASCAL} // TODO
diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas
index 0079dbd68..292444cf6 100644
--- a/Units/MMLAddon/mmlpsthread.pas
+++ b/Units/MMLAddon/mmlpsthread.pas
@@ -746,11 +746,15 @@ function TPSThread.FileAlreadyIncluded(Sender: TObject; FileName: string): Boole
   if (path <> '') then
     if Includes.Find(path,i) then
     begin
-      psWriteln('Include_Once file already included');
-      Result := False;
+      {$IFDEF SIMBA_VERBOSE}
+      psWriteln('Include_Once file already included:' + Path);
+      {$ENDIF}
+      Result := True;
+      Exit;
     end;
+
   Includes.Add(path);
-  Result := True;
+  Result := False;
 end;
 
 procedure SIRegister_Mufasa(cl: TPSPascalCompiler);