--- a/ClassDescription.st	Tue Feb 17 13:08:55 2004 +0100
+++ b/ClassDescription.st	Wed Feb 18 12:09:10 2004 +0100
@@ -2679,10 +2679,12 @@
 
     "append an info-record (snapshot, class fileOut etc.) to aStream"
 
-    aStream nextPutAll:('''---- ' , aMessage , ' ',
-			Date today printString , ' ' ,
-			Time now printString ,
-			' ----''').
+    aStream 
+        nextPutAll:'''---- '; nextPutAll:aMessage; nextPutAll:' '.
+    Date today printOn:aStream forLanguage:#en.        "/ MUST be english
+    aStream nextPutAll:' '.
+    Time now printOn:aStream.
+    aStream nextPutAll:' ----'''.
     aStream nextPutChunkSeparator.
 
     "Created: 2.4.1997 / 17:33:42 / stefan"
@@ -3999,7 +4001,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.162 2004-02-13 13:41:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.163 2004-02-18 11:09:10 cg Exp $'
 ! !
 
 ClassDescription initialize!