--- 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 $'
! !