--- a/Metaclass.st	Mon Jan 15 22:43:31 1996 +0100
+++ b/Metaclass.st	Mon Jan 15 22:43:50 1996 +0100
@@ -477,7 +477,7 @@
 
     "look, if it already exists as a class"
     oldClass := aSystemDictionary at:classSymbol ifAbsent:[nil].
-    oldClass isBehavior ifFalse:[
+    (oldClass isBehavior and:[oldClass isLoaded]) ifFalse:[
 	oldClass := nil.
     ] ifTrue:[
 	oldClass name ~= classSymbol ifTrue:[
@@ -1354,5 +1354,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.41 1995-12-12 12:55:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.42 1996-01-15 21:43:50 cg Exp $'
 ! !