--- a/VersionInfo.st	Wed Dec 21 21:05:02 2011 +0100
+++ b/VersionInfo.st	Thu Dec 22 09:59:53 2011 +0100
@@ -97,6 +97,12 @@
     "Created: / 22-10-2008 / 20:20:54 / cg"
 !
 
+author
+    ^ self user
+
+    "Created: / 21-12-2011 / 23:09:54 / cg"
+!
+
 binaryRevision
     ^ binaryRevision
 !
@@ -154,8 +160,8 @@
 !
 
 timeStamp:aTimestamp
-    date := aTimestamp date.
-    time := aTimestamp time.
+    date := aTimestamp asDate.
+    time := aTimestamp asTime.
 
     "Created: / 04-12-2011 / 10:06:02 / cg"
 !
@@ -179,5 +185,5 @@
 !VersionInfo class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.5 2011-12-04 14:40:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.6 2011-12-22 08:59:53 cg Exp $'
 ! !