--- a/VersionInfo.st	Sun Dec 04 15:40:25 2011 +0100
+++ b/VersionInfo.st	Sun Dec 04 15:40:55 2011 +0100
@@ -153,6 +153,13 @@
     time := something.
 !
 
+timeStamp:aTimestamp
+    date := aTimestamp date.
+    time := aTimestamp time.
+
+    "Created: / 04-12-2011 / 10:06:02 / cg"
+!
+
 timezone
     "raise an error: must be redefined in concrete subclass(es)"
 
@@ -172,5 +179,5 @@
 !VersionInfo class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.4 2011-11-23 22:33:52 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.5 2011-12-04 14:40:55 cg Exp $'
 ! !