--- a/hedgewars/uUtils.pas	Thu Jan 10 22:54:55 2013 +0400
+++ b/hedgewars/uUtils.pas	Thu Jan 10 22:59:46 2013 +0400
@@ -188,7 +188,11 @@
 function  StrToInt(s: shortstring): LongInt;
 var c: LongInt;
 begin
-val(s, StrToInt, c)
+val(s, StrToInt, c);
+{$IFDEF DEBUGFILE}
+if c <> 0 then
+    writeln(f, 'Error at position ' + IntToStr(c) + ' : ' + s[c])
+{$ENDIF}
 end;
 
 function FloatToStr(n: hwFloat): shortstring;