--- a/Workspace.st	Wed Oct 13 11:58:34 2010 +0200
+++ b/Workspace.st	Wed Oct 13 12:00:40 2010 +0200
@@ -185,6 +185,7 @@
         'sh'    'self halt'
         'mt'    'MessageTally spyOn:[\!!\]'
 
+        'ih'    '!! ifTrue:[ self halt ].'
         'ik'    'includesKey: #'
         'is'    'includesString: #'
 
@@ -268,7 +269,7 @@
             at:abbrev put:text "/ ifPresent:[ self error:'duplicate abbreviation key' ]
     ].
 
-    "Modified: / 13-10-2010 / 11:58:25 / cg"
+    "Modified: / 13-10-2010 / 12:00:34 / cg"
 !
 
 updateStyleCache
@@ -1803,9 +1804,9 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.221 2010-10-13 09:58:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.222 2010-10-13 10:00:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.221 2010-10-13 09:58:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.222 2010-10-13 10:00:40 cg Exp $'
 ! !