--- a/CVSSourceCodeManager.st	Tue Dec 22 09:17:01 2015 +0100
+++ b/CVSSourceCodeManager.st	Fri Jan 15 13:10:13 2016 +0000
@@ -5534,6 +5534,31 @@
     "Created: / 12-09-2006 / 12:36:44 / cg"
 !
 
+standardRevisionStringFor:aClass inModule:moduleDir directory:packageDir container:fileName revision:revisionString
+    "utility function: return a string usable as initial revision string"
+
+    ^ 'Header: %1/%2/%3,v %4, %5 %6 %7 Exp'
+        bindWith:moduleDir
+        with:packageDir
+        with:fileName
+        with:revisionString
+        with:(Date today printStringFormat:'%y/%m/%d')
+        with:(Time now printStringFormat:'%h:%m:%s')
+        with:(OperatingSystem getLoginName)
+        
+
+    "
+     self 
+        revisionStringFor:Array 
+        inModule:'stx' 
+        directory:'libbasic' 
+        container:'Array.st' 
+        revision:'123'          
+    "
+
+    "Created: / 23-07-2012 / 18:46:29 / cg"
+!
+
 statusOf:clsOrNil fileName:classFileName directory:packageDir module:moduleDir
     "return info about the status of a repository container.
      Return nil on failure.