--- a/hedgewars/uStore.pas	Sun Jan 05 00:46:26 2014 +0400
+++ b/hedgewars/uStore.pas	Sun Jan 05 10:54:03 2014 +0400
@@ -181,7 +181,13 @@
 r.x:= 0;
 r.y:= 0;
 drY:= - 4;
+{$IFNDEF PAS2C}
 DecodeDate(Date, year, month, md);
+{$ELSE}
+year:= 0;
+month:= 0;
+md:= 0;
+{$ENDIF}
 for t:= 0 to Pred(TeamsCount) do
     with TeamsArray[t]^ do
         begin