--- a/hedgewars/uGears.pas	Fri Sep 21 19:18:06 2007 +0000
+++ b/hedgewars/uGears.pas	Fri Sep 21 21:51:48 2007 +0000
@@ -798,7 +798,7 @@
       begin
       for i:= 0 to cMaxHHIndex do
           with Hedgehogs[i] do
-               if Gear <> nil then FindPlace(Gear, false, t, t + 1024);
+               if (Gear <> nil) and (Gear^.X.QWordValue = 0) then FindPlace(Gear, false, t, t + 1024);
       inc(t, 1024);
       end
    end else // mix hedgehogs
@@ -809,7 +809,7 @@
       begin
       for i:= 0 to cMaxHHIndex do
           with Hedgehogs[i] do
-               if Gear <> nil then
+               if (Gear <> nil) and (Gear^.X.QWordValue = 0) then
                   begin
                   ar[Count]:= Gear;
                   inc(Count)