diff -r 37891ba5e10b -r 1e32628eb167 hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Fri Dec 20 15:06:18 2013 +0400
+++ b/hedgewars/uGearsList.pas	Sat Dec 21 01:14:59 2013 +0400
@@ -261,9 +261,9 @@
                     if State and gstTmpFlag = 0 then
                         begin
                         dx.isNegative:= GetRandom(2) = 0;
-                        dx.QWordValue:= $40DA * GetRandom(10000) * 8;
+                        dx.QWordValue:= QWord($40DA) * GetRandom(10000) * 8;
                         dy.isNegative:= false;
-                        dy.QWordValue:= $3AD3 * GetRandom(7000) * 8;
+                        dy.QWordValue:= QWord($3AD3) * GetRandom(7000) * 8;
                         if GetRandom(2) = 0 then
                             dx := -dx
                         end;