--- a/AbstractSourceCodeManager.st	Sun Dec 04 15:36:41 2011 +0100
+++ b/AbstractSourceCodeManager.st	Sun Dec 04 15:40:16 2011 +0100
@@ -1393,16 +1393,12 @@
     "Modified: / 22-10-2008 / 20:49:15 / cg"
 !
 
-updateVersionMethodOf:aClass for:newRevisionString
+updateVersionMethod:selector of:aClass for:newRevisionString
     "{ Pragma: +optSpace }"
 
     "helper for the checkin procedure.
      Update my #version_XXX method, to now return newRevisionString."
 
-    |cls |
-
-    cls := aClass theMetaclass.
-
     Class methodRedefinitionNotification answer:#keep do:[
         Class withoutUpdatingChangesDo:[
             |oldVersion|
@@ -1411,18 +1407,28 @@
 "/            oldVersion := aClass revision.
 "/            aClass setBinaryRevision:oldVersion.
 
-            self compileVersionMethod:(self nameOfVersionMethodInClasses) of:aClass for:newRevisionString.
-
-            "Updates the old method #version (if present)"
-            true "(cls includesSelector: Class nameOfOldVersionMethod)" ifTrue: [
-                self compileVersionMethod:Class nameOfOldVersionMethod of:aClass for:newRevisionString.
-            ].
+            self compileVersionMethod:selector of:aClass for:newRevisionString.
         ]
     ].
 
-    ^ true
-
     "Modified: / 29-09-2011 / 21:59:41 / cg"
+    "Created: / 02-12-2011 / 14:18:14 / cg"
+!
+
+updateVersionMethodOf:aClass for:newRevisionString
+    "{ Pragma: +optSpace }"
+
+    "helper for the checkin procedure.
+     Update my #version_XXX method, to now return newRevisionString."
+
+    self updateVersionMethod:(self nameOfVersionMethodInClasses) of:aClass for:newRevisionString.
+
+    "Updates the old method #version (if present)"
+    true "(aClass theMetaclass includesSelector: Class nameOfOldVersionMethod)" ifTrue: [
+        self updateVersionMethod:(Class nameOfOldVersionMethod) of:aClass for:newRevisionString.
+    ].
+
+    "Modified: / 02-12-2011 / 14:19:37 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'queries'!
@@ -2096,7 +2102,7 @@
 
     doubleColon := source indexOf: $: startingAt: startQuote + 2.
     "/There may be no double colon at all, if the version method
-    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.272 2011-12-01 20:02:44 cg Exp $'
+    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.273 2011-12-04 14:40:16 cg Exp $'
     (doubleColon == 0 or:[doubleColon > endQuote]) ifTrue:[
         doubleColon := endQuote - 1.
     ].
@@ -3274,10 +3280,11 @@
 
 displayStringForPackage
     ^ self manager isNil 
+        ifTrue:[ package asText colorizeAllWith:Color gray ]
         ifFalse:[ package ]
-        ifTrue:[ package asText colorizeAllWith:Color gray ].
 
     "Created: / 09-07-2011 / 14:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-12-2011 / 11:31:49 / cg"
 ! !
 
 !AbstractSourceCodeManager::PackageAndManager methodsFor:'printing & storing'!
@@ -3319,11 +3326,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.272 2011-12-01 20:02:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.273 2011-12-04 14:40:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.272 2011-12-01 20:02:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.273 2011-12-04 14:40:16 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!