--- a/ApplicationModel.st	Wed Mar 19 11:05:12 2014 +0100
+++ b/ApplicationModel.st	Wed Mar 19 22:25:14 2014 +0100
@@ -3824,14 +3824,13 @@
     "evaluate aBlock, showing aCursor in my topView and all of its subviews.
      Return the value of aBlock."
 
-    |w ret|
+    |w|
 
     w := self window.
     w notNil ifTrue:[
-	^ w topView withCursor:aCursor do:aBlock
+        ^ w topView withCursor:aCursor do:aBlock
     ].
-    aCursor showWhile:[ret := aBlock value].
-    ^ ret.
+    ^ aCursor showWhile:aBlock.
 
     "Modified: / 23.9.1998 / 17:00:25 / cg"
 !
@@ -4086,11 +4085,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.355 2014-03-13 09:41:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.356 2014-03-19 21:25:14 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.355 2014-03-13 09:41:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.356 2014-03-19 21:25:14 stefan Exp $'
 ! !