diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index e57613d..e33d32d 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -1781,6 +1781,7 @@ procedure TForm1.FormCreate(Sender: TObject);
           {$ENDIF}
           b.SaveToStream(ms);
           Run(ms, nil, -1, True);
+          FileName := '!PSCORE!';
         end;
       finally
         b.Free;