--- a/Warning.st	Fri Mar 29 10:55:51 2019 +0100
+++ b/Warning.st	Fri Mar 29 10:55:57 2019 +0100
@@ -154,7 +154,7 @@
 
     text := self description.
 
-    self hasDialog ifTrue:[
+    (self suppressDialogIfUnhandled not and:[self hasDialog]) ifTrue:[
         optionalTitle notNil ifTrue:[
             Dialog warn:text title:optionalTitle
         ] ifFalse:[    
@@ -165,7 +165,7 @@
          on systems without GUI, simply show
          the message on the Transcript.
         "
-        Transcript show:'Warning: '; showCR:text.
+        Transcript show:(self class name); show:': '; showCR:text.
     ].
 
     "
@@ -174,7 +174,7 @@
     "
 
     "Modified: / 03-08-1999 / 14:06:41 / stefan"
-    "Modified (comment): / 26-02-2019 / 15:41:34 / Claus Gittinger"
+    "Modified: / 29-03-2019 / 10:55:28 / Claus Gittinger"
 ! !
 
 !Warning class methodsFor:'documentation'!