--- a/SourceCodeManagerUtilities.st	Wed Jun 21 13:00:35 2006 +0200
+++ b/SourceCodeManagerUtilities.st	Wed Jun 21 13:00:53 2006 +0200
@@ -1113,9 +1113,18 @@
             revisionInClass isNil ifTrue:[
                 (Dialog confirm:'Update (Fix) the classes Revision Info ?' withCRs)
                 ifTrue:[
-                    |newString|
+                    |newString root|
 
                     newString := mgr updatedRevisionStringOf:aClass forRevision:rev with:aClass revisionString.
+                    newString isNil ifTrue:[
+                        root := mgr getCVSROOTForModule:(aClass package upTo:$:).
+                        root := mgr repositoryTopDirectoryFromCVSRoot:root.
+                        newString := '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.120 2006-06-21 11:00:53 cg Exp $: with:$/),'/'
+                                     ,(Smalltalk fileNameForClass:aClass),'.st,v ',rev
+                                     ,(Date today printStringFormat:'%y/%m/%d'),' '
+                                     ,(Time now printStringFormat:'%h/%m/%s'),' '
+                                     ,(OperatingSystem getLoginName),' Exp $'.
+                    ].
                     aClass updateVersionMethodFor:newString.
                 ]
             ].
@@ -1125,6 +1134,8 @@
     "
       self compareClassWithRepository:Array
     "
+
+    "Modified: / 21-06-2006 / 12:12:56 / cg"
 !
 
 createSourceContainerForClass:aClass
@@ -2439,5 +2450,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.119 2006-03-31 17:13:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.120 2006-06-21 11:00:53 cg Exp $'
 ! !