--- a/gameServer/OfficialServer/extdbinterface.hs	Tue Dec 31 00:17:58 2013 +0400
+++ b/gameServer/OfficialServer/extdbinterface.hs	Tue Dec 31 00:53:29 2013 +0400
@@ -11,6 +11,7 @@
 import Database.HDBC.MySQL
 import Data.List (lookup)
 import qualified Data.ByteString.Char8 as B
+import Data.Word
 --------------------------
 import CoreTypes
 import Utils
@@ -91,7 +92,7 @@
         , SqlInt32 (readInt_ value)
         , SqlByteString fileName
         , SqlByteString location
-        , SqlInt32 p
+        , SqlInt32 $ fromIntegral p
         ] : ps bs
     ps (b:bs) = ps bs