--- a/hedgewars/PascalExports.pas	Sat Dec 04 23:30:20 2010 +0300
+++ b/hedgewars/PascalExports.pas	Sun Dec 05 00:05:21 2010 +0100
@@ -36,9 +36,8 @@
 // retrieve protocol information
 procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export;
 begin
-// http://bugs.freepascal.org/view.php?id=16156
-    if netProto <> nil then netProto^:= cNetProtoVersion;
-    if versionStr <> nil then versionStr^:= cVersionString;
+    netProto^:= cNetProtoVersion;
+    versionStr^:= cVersionString;
 end;
 
 procedure HW_click; cdecl; export;