--- a/hedgewars/uConsole.pas	Tue Oct 04 17:18:25 2011 +0200
+++ b/hedgewars/uConsole.pas	Tue Oct 04 19:20:42 2011 +0200
@@ -93,9 +93,9 @@
 
 function ShortStringAsPChar(s: ShortString) : PChar;
 begin
-    if Length(S) = High(s) then Dec(s[0]);
+    if Length(s) = High(s) then Dec(s[0]);
     s[Ord(Length(s))+1] := #0;
-    Result := @S[1];
+    exit(@s[1]);
 end;
 
 function GetLastConsoleLine: shortstring;