--- a/Workspace.st	Mon Apr 14 21:58:07 2014 +0200
+++ b/Workspace.st	Tue Apr 15 09:53:08 2014 +0200
@@ -413,6 +413,8 @@
     string := aString asString string withoutSeparators.
     (string asCollectionOfWords size <= 1) ifTrue:[
         Error handle:[:ex |
+            "/ unparsable
+            ^ self
         ] do:[
             ((Scanner new scanTokens:string) size <= 1) ifTrue:[
                 "it's a variable only"
@@ -2246,10 +2248,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.321 2014-04-14 19:58:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.322 2014-04-15 07:53:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.321 2014-04-14 19:58:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.322 2014-04-15 07:53:08 cg Exp $'
 ! !