--- stratagus-2.1/src/stratagus/script.c        2006-08-24 21:32:14.000000000 +0200
+++ stratagus-2.1/src/stratagus/script.c.orig   2004-06-27 00:38:18.000000000 +0200
@@ -323,12 +323,12 @@ int LuaToBoolean(lua_State* l, int narg)
 void CclGarbageCollect(int fast)
 {
        DebugPrint("Garbage collect (before): %d/%d\n" _C_
-               lua_getgccount(Lua) _C_ lua_gc(Lua));
+               lua_getgccount(Lua) _C_ lua_getgcthreshold(Lua));

-       lua_gc(Lua, LUA_GCCOLLECT, 0);
+       lua_setgcthreshold(Lua, 0);

        DebugPrint("Garbage collect (after): %d/%d\n" _C_
-               lua_getgccount(Lua) _C_ lua_gc(Lua));
+               lua_getgccount(Lua) _C_ lua_getgcthreshold(Lua));
 }

 /*............................................................................