sanity check
authorClaus Gittinger <cg@exept.de>
Fri, 11 Jan 2013 12:45:37 +0100
changeset 14647 55ae1eae669b
parent 14646 e50d67215873
child 14648 7a9bec61d6fe
sanity check
Metaclass.st
--- a/Metaclass.st	Fri Jan 11 10:57:43 2013 +0100
+++ b/Metaclass.st	Fri Jan 11 12:45:37 2013 +0100
@@ -133,7 +133,7 @@
     "return true, if the class has been loaded;
      redefined in Autoload; see comment there"
 
-    ^ myClass isLoaded
+    ^ myClass isNil or:[ myClass isLoaded ]
 
 
 ! !
@@ -902,7 +902,7 @@
 !Metaclass class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.210 2011-07-01 11:44:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.211 2013-01-11 11:45:37 cg Exp $'
 ! !
 
 Metaclass initialize!