diff -r dda33caa609d -r e81dc9bef8b8 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Sun Oct 14 00:22:33 2012 +0400
+++ b/hedgewars/uScript.pas	Sun Oct 14 13:35:15 2012 -0400
@@ -1669,7 +1669,7 @@
         if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
             hat:= lua_tostring(L, 2);
             gear^.Hedgehog^.Hat:= hat;
-            LoadHedgehogHat(gear, hat);
+            LoadHedgehogHat(gear^.Hedgehog^, hat);
         end;
     lc_sethoghat:= 0;
 end;