diff --git a/Projects/Simba/framescript.pas b/Projects/Simba/framescript.pas
index b295705..7f4a7ff 100644
--- a/Projects/Simba/framescript.pas
+++ b/Projects/Simba/framescript.pas
@@ -314,10 +314,12 @@ begin
     ecUndo :  begin
                 Command:= ecNone;
                 Self.Undo;
+                Self.ScriptChanged:=True;
               end;
     ecRedo :  begin
                 Command := ecNone;
                 self.Redo;
+                Self.ScriptChanged:=True;
               end;
   end;
 end;
diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 249f236..2ea77e9 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -2954,6 +2954,11 @@ end;
 
 function TSimbaForm.SaveCurrentScript: boolean;
 begin
+  if not CurrScript.ScriptChanged then
+  begin
+    writeln('SaveScript - no changes.');
+    exit(false);
+  end;
   with CurrScript do
   begin
     Result := (ScriptFile <> '');