Class.st
changeset 1779 4dba26f3765d
parent 1766 5c07f58a54c9
child 1786 6a60221f0c77
--- a/Class.st	Fri Oct 18 12:15:52 1996 +0200
+++ b/Class.st	Fri Oct 18 14:30:09 1996 +0200
@@ -3948,7 +3948,10 @@
             aStream := mgr getSourceStreamFor:self.
 
             (self validateSourceStream:aStream) ifFalse:[
-                ('CLASS: mgr source for ' , name , ' corrupted - try local file') infoPrintCR.
+                ('CLASS: repositories source for `' 
+                 , (self isMeta ifTrue:[self soleInstance name]
+                                ifFalse:[name])
+                 , ''' is invalid') infoPrintCR.
                 aStream close.
                 aStream := nil
             ].
@@ -3978,7 +3981,7 @@
     "
 
     "Created: 10.11.1995 / 21:05:13 / cg"
-    "Modified: 16.10.1996 / 16:56:06 / cg"
+    "Modified: 18.10.1996 / 13:28:29 / cg"
 !
 
 updateVersionMethodFor:newRevisionString
@@ -4101,6 +4104,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.191 1996-10-16 16:11:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.192 1996-10-18 12:30:09 cg Exp $'
 ! !
 Class initialize!