ClassChange.st
changeset 2521 8b8890f94458
parent 2520 092b3abcd994
child 2525 0d570c8def74
--- a/ClassChange.st	Thu Sep 08 04:53:12 2011 +0200
+++ b/ClassChange.st	Thu Sep 08 05:05:24 2011 +0200
@@ -141,15 +141,15 @@
                     ].
                 ].
             ].
+            class isNil ifTrue:[^ nil].
         ].
     ].
-    class isNil ifTrue:[^ nil].
 
     "/ care for aliases...
-    (class nameWithoutPrefix ~= className) ifTrue:[ ^ nil ].
+    "/ (class nameWithoutPrefix ~= className) ifTrue:[ ^ nil ].
     ^ meta ifTrue:[class theMetaclass] ifFalse:[class].
 
-    "Modified: / 07-09-2011 / 22:04:18 / cg"
+    "Modified: / 08-09-2011 / 05:04:21 / cg"
 !
 
 changeClass:aClass
@@ -417,9 +417,9 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.60 2011-09-08 02:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.61 2011-09-08 03:05:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.60 2011-09-08 02:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.61 2011-09-08 03:05:24 cg Exp $'
 ! !