--- a/Workspace.st	Thu May 28 14:25:01 2009 +0200
+++ b/Workspace.st	Sat Jun 06 19:08:05 2009 +0200
@@ -1279,6 +1279,7 @@
         self topView withExecuteCursorDo:[
             [
                 AbortOperationRequest handle:[:ex |
+                     aBlock value:'** Abortsignal cought **'.
                      ex return
                 ] do:[
                     |value|
@@ -1749,5 +1750,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.204 2009-05-28 12:25:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.205 2009-06-06 17:08:05 cg Exp $'
 ! !