diff -r 1188254dcbfc -r 1c3fb15ffd62 UIPainter.st
--- a/UIPainter.st	Thu Jul 03 12:42:26 1997 +0200
+++ b/UIPainter.st	Thu Jul 03 12:45:29 1997 +0200
@@ -1363,8 +1363,9 @@
         ].
 
         (cls isSubclassOf:superclass) ifFalse:[
-            self warn:'a global named ' , specClass , ' exists, but is not a subclass of ' , superclass name , '.'.
-            ^ false.
+            self information:('a global named ' , specClass , ' exists,\' ,
+                              'but is not a subclass of ' , superclass name , '.\\' ,
+                              'Check and try again if that is not what you want.') withCRs.
         ]
     ].