--- a/hedgewars/uStore.pas	Mon May 14 19:48:34 2012 +0200
+++ b/hedgewars/uStore.pas	Mon May 14 22:14:17 2012 +0200
@@ -761,8 +761,11 @@
 
 procedure SetScale(f: GLfloat);
 begin
-    cScaleFactor:=f;
-    UpdateProjection;
+    if cScaleFactor <> f then
+        begin
+        cScaleFactor:=f;
+        UpdateProjection;
+        end;
 end;
 
 ////////////////////////////////////////////////////////////////////////////////