--- 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 $'
! !