--- a/CodeView.st	Mon Sep 27 12:49:53 2004 +0200
+++ b/CodeView.st	Mon Sep 27 12:50:59 2004 +0200
@@ -189,7 +189,7 @@
      errors by highlighting them)"
 
     acceptEnabled == false ifTrue:[
-        device beep.
+        self beep.
         ^ self
     ].
 
@@ -318,5 +318,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.53 2004-09-14 10:18:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.54 2004-09-27 10:50:59 stefan Exp $'
 ! !