--- a/hedgewars/LuaPas.pas	Sat Feb 08 16:29:34 2014 +0400
+++ b/hedgewars/LuaPas.pas	Sun Feb 09 00:44:29 2014 +0400
@@ -476,7 +476,8 @@
 procedure lua_setglobal(L : Plua_State; s : PChar);
 procedure lua_getglobal(L : Plua_State; s : PChar);
 
-function lua_tostring(L : Plua_State; idx : LongInt) : AnsiString;
+function lua_tostring(L : Plua_State; idx : LongInt) : shortstring;
+function lua_tostringA(L : Plua_State; idx : LongInt) : ansistring;
 
 
 (*
@@ -921,11 +922,16 @@
     lua_getfield(L, LUA_GLOBALSINDEX, s);
 end;
 
-function lua_tostring(L : Plua_State; idx : LongInt) : AnsiString;
+function lua_tostring(L : Plua_State; idx : LongInt) : shortstring;
 begin
     lua_tostring := StrPas(lua_tolstring(L, idx, nil));
 end;
 
+function lua_tostringA(L : Plua_State; idx : LongInt) : ansistring;
+begin
+    lua_tostringA := ansistring(lua_tolstring(L, idx, nil));
+end;
+
 function lua_open : Plua_State;
 begin
     lua_open := luaL_newstate;