--- a/PseudoV.st	Fri Jul 28 04:58:06 1995 +0200
+++ b/PseudoV.st	Thu Aug 03 03:33:27 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.38 1995-06-06 04:08:08 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.39 1995-08-03 01:32:32 claus Exp $
 '!
 
 !PseudoView class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.38 1995-06-06 04:08:08 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.39 1995-08-03 01:32:32 claus Exp $
 "
 !
 
@@ -377,16 +377,18 @@
 !
 
 withCursor:aCursor do:aBlock
-    "evaluate aBlock showing aCursor until ready; then restore the old cursor.
-     Notice, that this method only changes the cursor for a single (sub-)view.
-     Most applications want to have the cursor changed in all views of an
-     application. Use WindowGroup>>withCursor:do: to acomplish this."
+    "evaluate aBlock showing aCursor until ready; then restore the old cursor
+     and return the value as returned by aBlock.
+
+     Notice, that this method only changes the cursor for a SINGLE (sub-)view.
+     Most applications want to have the cursor changed in all views of its
+     application. Use 'aView windowGroup withCursor:do:' to acomplish this."
 
     |savedCursor|
 
     savedCursor := cursor.
     self cursor:aCursor.
-    aBlock valueNowOrOnUnwindDo:[self cursor:savedCursor]
+    ^ aBlock valueNowOrOnUnwindDo:[self cursor:savedCursor]
 ! !
 
 !PseudoView methodsFor:'accessing-hierarchy'!