Class.st
changeset 1646 a4937ec0cb30
parent 1639 56267c28a5e8
child 1651 fc6505852b73
--- a/Class.st	Fri Sep 06 11:08:40 1996 +0200
+++ b/Class.st	Sat Sep 07 14:02:28 1996 +0200
@@ -810,7 +810,8 @@
      For now, all classes return the same global manager.
      But future versions may support mixed reporitories"
 
-    AbstractSourceCodeManager notNil ifTrue:[
+    (AbstractSourceCodeManager notNil 
+    and:[AbstractSourceCodeManager isLoaded]) ifTrue:[
 	^ AbstractSourceCodeManager defaultManager
     ].
     ^ Smalltalk at:#SourceCodeManager
@@ -4014,6 +4015,6 @@
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.164 1996-08-28 13:25:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.165 1996-09-07 12:02:28 cg Exp $'
 ! !
 Class initialize!