--- a/PerforceSourceCodeManager.st	Wed Dec 21 19:18:00 2011 +0100
+++ b/PerforceSourceCodeManager.st	Wed Dec 21 19:19:44 2011 +0100
@@ -710,7 +710,6 @@
 initialRevisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName
     "return a string usable as initial revision string"
 
-
     |modulePath workSpaceDefinition version checkoutName repositoryDir repositoryPathName|
 
     modulePath :=  moduleDir , '/' , packageDir.
@@ -726,6 +725,8 @@
     version repositoryPathName:repositoryPathName pathName.
     version revision:'1'.
     ^ version getVersionString.
+
+    "Modified (format): / 21-12-2011 / 18:11:51 / cg"
 !
 
 readRevisionLogEntryFromStream:inStream
@@ -2352,7 +2353,7 @@
     ^ nil
 
     "
-     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.18 2011-12-21 15:11:04 cg Exp $'
+     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.19 2011-12-21 18:19:44 cg Exp $'
     "
 
     "Modified: / 22-10-2008 / 20:17:00 / cg"
@@ -2504,8 +2505,12 @@
 
 !PerforceSourceCodeManager class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.19 2011-12-21 18:19:44 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.18 2011-12-21 15:11:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.19 2011-12-21 18:19:44 cg Exp $'
 ! !
 
 PerforceSourceCodeManager initialize!