--- a/Workspace.st	Fri Feb 21 12:23:43 2014 +0100
+++ b/Workspace.st	Fri Feb 21 12:24:15 2014 +0100
@@ -484,7 +484,7 @@
 !
 
 workspaceVariableNames
-    "retrieve the collection of workspace variable names"
+    "retrieve the collection of workspace variable names only"
 
     WorkspaceVariables isNil ifTrue:[^ #()].
     ^ WorkspaceVariables keys
@@ -2217,10 +2217,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.315 2014-02-21 11:23:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.316 2014-02-21 11:24:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.315 2014-02-21 11:23:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.316 2014-02-21 11:24:15 cg Exp $'
 ! !