--- a/Workspace.st	Mon May 20 10:44:35 1996 +0200
+++ b/Workspace.st	Mon May 20 23:35:11 1996 +0200
@@ -548,7 +548,7 @@
      If the text is readOnly, do nothing."
 
     readOnly ifTrue:[
-        self beep
+        device beep
     ] ifFalse:[ 
         self doItWithValueDo:[:result | 
             self cursorLine:selectionEndLine col:(selectionEndCol + 1).
@@ -556,10 +556,10 @@
         ]
     ]
 
-    "Modified: 27.2.1996 / 15:10:38 / cg"
+    "Modified: 20.5.1996 / 23:30:55 / cg"
 ! !
 
 !Workspace class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.44 1996-04-25 16:44:20 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.45 1996-05-20 21:35:11 cg Exp $'! !