--- a/Class.st	Fri Jan 14 11:38:35 2000 +0100
+++ b/Class.st	Fri Jan 14 13:53:54 2000 +0100
@@ -3975,7 +3975,7 @@
     ].
 
     cannotCheckReason notNil ifTrue:[
-        ('Class [warning]: ' , cannotCheckReason) errorPrintCR.
+        ('Class [warning]: ' , cannotCheckReason , ' in ' , self name) infoPrintCR.
         'Class [info]: cannot validate source; trusting source' infoPrintCR.
         ^ true
     ].
@@ -4032,5 +4032,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.360 1999-12-16 14:56:15 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.361 2000-01-14 12:53:54 cg Exp $'
 ! !