--- a/Workspace.st	Tue May 28 11:07:59 1996 +0200
+++ b/Workspace.st	Tue May 28 17:00:49 1996 +0200
@@ -548,7 +548,7 @@
      If the text is readOnly, do nothing."
 
     readOnly ifTrue:[
-        device beep
+        self beep
     ] ifFalse:[ 
         self doItWithValueDo:[:result | 
             self cursorLine:selectionEndLine col:(selectionEndCol + 1).
@@ -556,10 +556,10 @@
         ]
     ]
 
-    "Modified: 20.5.1996 / 23:30:55 / cg"
+    "Modified: 28.5.1996 / 16:59:04 / cg"
 ! !
 
 !Workspace class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.45 1996-05-20 21:35:11 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.46 1996-05-28 14:59:29 cg Exp $'! !