--- a/ClassChange.st	Wed Oct 11 14:20:03 2006 +0200
+++ b/ClassChange.st	Wed Oct 11 14:20:48 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic3' }"
 
 Change subclass:#ClassChange
@@ -66,7 +65,14 @@
 
     "do not autoload a owning class of a private class!!"
 
-    ^ Smalltalk loadedClassNamed:self className.
+    |className cls|
+
+    className := self className.
+    cls := Smalltalk loadedClassNamed:className.
+    cls isNil ifTrue:[ ^ nil ].
+    "/ care for aliases...
+    cls name ~= className ifTrue:[ ^ nil ].
+    ^ cls.
 
 "/    |className ns cls|
 "/
@@ -85,6 +91,8 @@
 "/        ].
 "/    ].
 "/    ^ cls
+
+    "Modified: / 11-10-2006 / 14:03:51 / cg"
 !
 
 changeClass:aClass
@@ -281,5 +289,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.42 2006-08-07 14:05:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.43 2006-10-11 12:20:48 cg Exp $'
 ! !