--- a/WarningBox.st	Fri Mar 06 21:56:22 2020 +0100
+++ b/WarningBox.st	Fri Mar 06 21:56:26 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -256,6 +258,12 @@
     ^ UserPreferences current beepForWarningDialog
 ! !
 
+!WarningBox methodsFor:'testing'!
+
+isWarningBox
+    ^ true
+! !
+
 !WarningBox class methodsFor:'documentation'!
 
 version