--- a/SourceCodeManagerUtilities.st	Fri Jul 08 11:33:08 2011 +0200
+++ b/SourceCodeManagerUtilities.st	Fri Jul 08 13:08:27 2011 +0200
@@ -2240,20 +2240,16 @@
 !
 
 ensureCorrectVersionMethodsInClass:aClass using:aManager
-    "kludge:
-        if there is a new version-XXX method AND an old version method, remove the old one 
-        (there should now be only a new version-XXX method)"
-
     |theMetaclass src newSrc versionMethodName oldVersionMethodName|
 
     theMetaclass := aClass theMetaclass.
     versionMethodName := aManager nameOfVersionMethodInClasses.
-    oldVersionMethodName := aManager nameOfOldVersionMethod.
+    oldVersionMethodName := aClass nameOfOldVersionMethod.
 
     (theMetaclass includesSelector:versionMethodName) ifTrue:[
-        (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
-            theMetaclass removeSelector:oldVersionMethodName.   
-        ].
+"/        (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
+"/            theMetaclass removeSelector:oldVersionMethodName.   
+"/        ].
         "/ ensure that my version method is parsable (contains $'s)
         src := (theMetaclass compiledMethodAt:versionMethodName) source.
         src notNil ifTrue:[
@@ -2272,6 +2268,8 @@
             theMetaclass compile:newSrc.
         ].
     ].
+
+    "Modified (comment): / 08-07-2011 / 13:08:09 / cg"
 !
 
 getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
@@ -3345,5 +3343,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.218 2011-07-07 12:45:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.219 2011-07-08 11:08:27 cg Exp $'
 ! !