--- a/Workspace.st	Mon Oct 21 20:00:58 2002 +0200
+++ b/Workspace.st	Tue Oct 22 18:54:29 2002 +0200
@@ -986,7 +986,7 @@
                 sub disable:#browseReferencesToIt.
             ].
             self isReadOnly ifTrue:[
-                m disableAll:#(commentSelection uncommentSelection) 
+                sub disableAll:#(commentSelection uncommentSelection) 
             ].
         ].
     ].
@@ -1078,5 +1078,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.115 2002-09-04 20:11:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.116 2002-10-22 16:54:29 cg Exp $'
 ! !