--- a/ClassDefinitionChange.st	Tue Apr 16 16:01:24 2013 +0200
+++ b/ClassDefinitionChange.st	Tue Apr 16 20:09:44 2013 +0200
@@ -47,12 +47,6 @@
 "
 ! !
 
-!ClassDefinitionChange class methodsFor:'others'!
-
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.80 2013-04-16 14:00:37 cg Exp $'
-! !
-
 !ClassDefinitionChange methodsFor:'accessing'!
 
 basicSuperClassName 
@@ -672,7 +666,7 @@
         cat := (parseTree args at:catIdx) evaluate.
     ].
 
-    clsName := self className asSymbol.
+    clsName := self fullClassName "className" asSymbol.
     cls := Smalltalk at:clsName.
 
     pkg := package ? Project current package.   
@@ -761,7 +755,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.80 2013-04-16 14:00:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.81 2013-04-16 18:09:44 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.81 2013-04-16 18:09:44 cg Exp $'
 !
 
 version_SVN