[Gd-chatter] r11479 - trunk/fundev/sources/system

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Mon Oct 29 20:57:30 2007
New Revision: 11479

Modified:
   trunk/fundev/sources/system/date.dylan
Log:
Job: minor
fixed a very stupid bug


Modified: trunk/fundev/sources/system/date.dylan
==============================================================================
--- trunk/fundev/sources/system/date.dylan	(original)
+++ trunk/fundev/sources/system/date.dylan	Mon Oct 29 20:57:30 2007
@@ -467,7 +467,7 @@
         'Y' => date.date-year := string-to-integer(read(date-stream, 4));
         'y' => date.date-year := begin 
                   let year = string-to-integer(read(date-stream, 2));
-                  if (year < 70) 1900 else 2000 end if + year;
+                  if (year > 70) 1900 else 2000 end if + year;
                 end;
         'H', 'k' => date.date-hours := string-to-integer(read(date-stream, 2));
         'M' => date.date-minutes := string-to-integer(read(date-stream, 2));