diff --git a/collects/mzlib/date.ss b/collects/mzlib/date.ss
index 5b1954b4b8..88db41a277 100644
--- a/collects/mzlib/date.ss
+++ b/collects/mzlib/date.ss
@@ -377,8 +377,9 @@
 		    (cond
 		     ((or (null? reversed-digits)
 			  (null? (cdr reversed-digits))
-			  (null? (cdr (cdr reversed-digits))))
-		      (list (apply string-append reversed-digits)))
+			  (null? (cdr (cdr reversed-digits)))
+                          (null? (cdr (cdr (cdr reversed-digits)))))
+		      (list (apply string-append (reverse reversed-digits))))
 		     (else (cons (apply string-append
 					(list " "
 					      (caddr reversed-digits)