diff -r 60d7f88a7de3 -r 34aa727d4a25 hedgewars/HHHandlers.inc
--- a/hedgewars/HHHandlers.inc	Sat Nov 05 19:12:15 2011 -0400
+++ b/hedgewars/HHHandlers.inc	Sat Nov 05 20:09:48 2011 -0400
@@ -1137,7 +1137,7 @@
     begin
     slope:= CalcSlopeBelowGear(Gear);
     Gear^.dX:=Gear^.dX+cGravity*_128*slope;
-    Gear^.State:= Gear^.State or gstMoving;
+    if slope.QWordValue <> 0 then Gear^.State:= Gear^.State or gstMoving;
 (*
     x:= hwRound(Gear^.X);
     y:= hwRound(Gear^.Y);