--- a/EditField.st	Tue Sep 21 22:11:02 2004 +0200
+++ b/EditField.st	Mon Sep 27 12:49:53 2004 +0200
@@ -811,7 +811,7 @@
     |val string|
 
     acceptEnabled == false ifTrue:[
-        device beep.
+        self beep.
         ^ self
     ].
 
@@ -2156,5 +2156,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.174 2004-06-09 17:04:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.175 2004-09-27 10:49:53 stefan Exp $'
 ! !