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