--- a/Workspace.st	Tue Apr 13 16:32:34 2010 +0200
+++ b/Workspace.st	Fri May 07 18:10:20 2010 +0200
@@ -183,6 +183,7 @@
 
         'ex'    'Error handle:[ex | !!] do:[]'
         'sh'    'self halt.'
+        'mt'    'MessageTally spyOn:[\!!\]'
 
         'ik'    'includesKey: #'
         'is'    'includesString: #'
@@ -266,6 +267,8 @@
         Sniplets
             at:abbrev put:text "/ ifPresent:[ self error:'duplicate abbreviation key' ]
     ].
+
+    "Modified: / 07-05-2010 / 16:48:07 / cg"
 !
 
 updateStyleCache
@@ -1781,9 +1784,9 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.214 2010-03-18 14:57:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.215 2010-05-07 16:10:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.214 2010-03-18 14:57:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.215 2010-05-07 16:10:20 cg Exp $'
 ! !