$NetBSD: patch-ac,v 1.1 2006/08/14 22:37:57 wiz Exp $

--- src/stratagus/script.c.orig	2004-06-26 22:38:18.000000000 +0000
+++ src/stratagus/script.c
@@ -325,7 +325,7 @@ void CclGarbageCollect(int fast)
 	DebugPrint("Garbage collect (before): %d/%d\n" _C_
 		lua_getgccount(Lua) _C_ lua_getgcthreshold(Lua));
 
-	lua_setgcthreshold(Lua, 0);
+	lua_gc(Lua, LUA_GCCOLLECT, 0);
 
 	DebugPrint("Garbage collect (after): %d/%d\n" _C_
 		lua_getgccount(Lua) _C_ lua_getgcthreshold(Lua));
