--- a/Smalltalk.st	Thu Apr 13 13:34:41 2000 +0200
+++ b/Smalltalk.st	Fri Apr 14 18:28:08 2000 +0200
@@ -5507,9 +5507,7 @@
      length (to avoid changing a files size in fileOut with unchanged
      class)."
 
-    ^ ('''From Smalltalk/X, Version:' , (Smalltalk versionString) , ' on '
-       , Date today printString , ' at ' , Time now printString
-       , '''') paddedTo:80 with:(Character space)
+    ^ ('''' , self timeStampString , '''') paddedTo:80 with:(Character space)
 !
 
 timeStamp:aStream
@@ -5521,6 +5519,14 @@
     "Created: / 18.6.1998 / 17:22:58 / cg"
 !
 
+timeStampString
+    "return a string useful for timestamping a file."
+
+    ^ ('From Smalltalk/X, Version:' , (Smalltalk versionString) , ' on '
+       , Date today printString , ' at ' , Time now printString
+       )
+!
+
 versionDate
     "{ Pragma: +optSpace }"
 
@@ -5556,5 +5562,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.447 2000-04-13 10:55:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.448 2000-04-14 16:28:08 cg Exp $'
 ! !