--- a/hedgewars/PascalExports.pas	Mon Mar 01 19:20:43 2010 +0000
+++ b/hedgewars/PascalExports.pas	Mon Mar 01 19:54:33 2010 +0000
@@ -52,7 +52,7 @@
 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;
 begin
 	if netProto <> nil then netProto^:= cNetProtoVersion;
-	if versionStr <> nil then versionStr^:= string(cVersionString);
+	if versionStr <> nil then versionStr^:= shortstring(cVersionString);
 end;
 
 procedure HW_click; cdecl; export;