--- a/hedgewars/uGears.pas	Tue Jun 17 18:09:38 2008 +0000
+++ b/hedgewars/uGears.pas	Tue Jun 17 18:10:15 2008 +0000
@@ -1058,7 +1058,8 @@
 							if (Gear <> nil) and (Gear^.X.QWordValue = 0) then
 								begin
 								FindPlace(Gear, false, t, t + 1024);
-								Gear^.Pos:= GetRandom(19)
+								Gear^.Pos:= GetRandom(19);
+								Gear^.dX.isNegative:= p = 1;
 								end;
 		inc(t, 1024)
 		end