Class.st
changeset 1935 f08ee7907b40
parent 1932 4d4c4563486b
child 1938 e1a56370a833
--- a/Class.st	Fri Nov 08 15:11:11 1996 +0100
+++ b/Class.st	Fri Nov 08 15:38:22 1996 +0100
@@ -4302,16 +4302,17 @@
 
         mgr notNil ifTrue:[
             aStream := mgr getSourceStreamFor:self.
-
-            (self validateSourceStream:aStream) ifFalse:[
-                ('CLASS: repositories source for `' 
-                 , (self isMeta ifTrue:[self soleInstance name]
-                                ifFalse:[name])
-                 , ''' is invalid.') infoPrintCR.
-                aStream close.
-                aStream := nil
-            ] ifTrue:[
-                validated := true.
+            aStream notNil ifTrue:[
+                (self validateSourceStream:aStream) ifFalse:[
+                    ('CLASS: repositories source for `' 
+                     , (self isMeta ifTrue:[self soleInstance name]
+                                    ifFalse:[name])
+                     , ''' is invalid.') infoPrintCR.
+                    aStream close.
+                    aStream := nil
+                ] ifTrue:[
+                    validated := true.
+                ].
             ].
 
             aStream isNil ifTrue:[
@@ -4344,7 +4345,7 @@
     "
 
     "Created: 10.11.1995 / 21:05:13 / cg"
-    "Modified: 6.11.1996 / 21:47:22 / cg"
+    "Modified: 8.11.1996 / 15:37:41 / cg"
 !
 
 updateVersionMethodFor:newRevisionString
@@ -4479,6 +4480,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.213 1996-11-08 13:23:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.214 1996-11-08 14:38:22 cg Exp $'
 ! !
 Class initialize!