diff --git a/vfs/ChangeLog b/vfs/ChangeLog
index a8dd1581b..6c4fa9a7c 100644
--- a/vfs/ChangeLog
+++ b/vfs/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-12  Pavel Roskin  <proski@gnu.org>
+
+	* extfs/patchfs.in: Print 4-digit year.  If str2time is not
+	available, use current time, not 0.
+
 2002-12-12  Andrew V. Samoilov  <sav@bcs.zp.ua>
 
 	* extfs/urar.in: rar lists directories after files, so sort "list"
diff --git a/vfs/extfs/patchfs.in b/vfs/extfs/patchfs.in
index 222ce66c3..d9fabea90 100644
--- a/vfs/extfs/patchfs.in
+++ b/vfs/extfs/patchfs.in
@@ -20,7 +20,8 @@ sub timef
 {
     # format unix time
     my @time=localtime($_[0]);
-    return sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3], $time[5]%100, $time[2], $time[1];
+    return sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3],
+		   $time[5] + 1900, $time[2], $time[1];
 }
 
 sub datetime
@@ -30,7 +31,7 @@ sub datetime
     if ($parsedates && defined (my $t=str2time($_[0]))) {
 	return timef($t);
     }
-    return timef(0);
+    return timef(time);
 }
 
 sub list