--- a/Class.st	Fri Jan 10 15:52:03 1997 +0100
+++ b/Class.st	Fri Jan 10 16:04:23 1997 +0100
@@ -4549,7 +4549,7 @@
             aStream := mgr getSourceStreamFor:self.
             aStream notNil ifTrue:[
                 (self validateSourceStream:aStream) ifFalse:[
-                    ('CLASS: repositories source for `' 
+                    ('Class [info]: repositories source for `' 
                      , (self isMeta ifTrue:[self soleInstance name]
                                     ifFalse:[name])
                      , ''' is invalid.') infoPrintCR.
@@ -4578,7 +4578,7 @@
 
     (aStream notNil and:[validated not]) ifTrue:[
         (self validateSourceStream:aStream) ifFalse:[
-            ('CLASS: source for ''' , self name , ''' is invalid. Take care.') infoPrintCR
+            ('Class [warning]: source for ''' , self name , ''' is invalid. Take care.') errorPrintCR
         ].
     ].
     ^ aStream
@@ -4590,7 +4590,7 @@
     "
 
     "Created: 10.11.1995 / 21:05:13 / cg"
-    "Modified: 8.11.1996 / 15:37:41 / cg"
+    "Modified: 10.1.1997 / 15:36:26 / cg"
 !
 
 updateVersionMethodFor:newRevisionString
@@ -4693,8 +4693,8 @@
     ].
 
     cannotCheckReason notNil ifTrue:[
-        ('CLASS: ' , cannotCheckReason) infoPrintCR.
-        'CLASS: cannot validate source; trusting source' infoPrintCR.
+        ('Class [warning]: ' , cannotCheckReason) errorPrintCR.
+        'Class [info]: cannot validate source; trusting source' infoPrintCR.
         ^ true
     ].
 
@@ -4722,12 +4722,12 @@
     ].
     ^ false
 
-    "Modified: 8.11.1996 / 20:55:09 / cg"
+    "Modified: 10.1.1997 / 15:36:51 / cg"
 ! !
 
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.242 1997-01-09 01:08:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.243 1997-01-10 15:04:23 cg Exp $'
 ! !
 Class initialize!