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