--- a/ClassChange.st	Thu Feb 26 22:28:05 2009 +0100
+++ b/ClassChange.st	Mon Mar 09 17:13:44 2009 +0100
@@ -131,7 +131,7 @@
         ].
     ].
     "/ care for aliases...
-    class name ~= className ifTrue:[ ^ nil ].
+    (class notNil and:[class name ~= className]) ifTrue:[ ^ nil ].
     ^ class.
 !
 
@@ -341,5 +341,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.52 2009-02-16 17:10:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.53 2009-03-09 16:13:44 cg Exp $'
 ! !