--- a/Workspace.st	Wed Sep 22 14:22:56 2010 +0200
+++ b/Workspace.st	Wed Oct 13 11:58:34 2010 +0200
@@ -182,7 +182,7 @@
         'inj'   'inject:!! into:[:accum :each | ]'
 
         'ex'    'Error handle:[ex | !!] do:[]'
-        'sh'    'self halt.'
+        'sh'    'self halt'
         'mt'    'MessageTally spyOn:[\!!\]'
 
         'ik'    'includesKey: #'
@@ -268,7 +268,7 @@
             at:abbrev put:text "/ ifPresent:[ self error:'duplicate abbreviation key' ]
     ].
 
-    "Modified: / 06-08-2010 / 11:10:34 / cg"
+    "Modified: / 13-10-2010 / 11:58:25 / cg"
 !
 
 updateStyleCache
@@ -1803,9 +1803,9 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.220 2010-09-22 12:22:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.221 2010-10-13 09:58:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.220 2010-09-22 12:22:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.221 2010-10-13 09:58:34 cg Exp $'
 ! !