--- a/WarningBox.st	Tue May 28 11:07:59 1996 +0200
+++ b/WarningBox.st	Tue May 28 17:00:49 1996 +0200
@@ -193,18 +193,18 @@
 openModal
     "added bell to wake up user"
 
-    device beep.
+    self beep.
     super openModal
 
     "
      self warn:'hello'
     "
 
-    "Modified: 7.3.1996 / 17:52:17 / cg"
+    "Modified: 28.5.1996 / 16:59:01 / cg"
 ! !
 
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.19 1996-05-16 10:02:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.20 1996-05-28 14:59:43 cg Exp $'
 ! !