--- a/WGroup.st	Fri Jul 28 04:58:06 1995 +0200
+++ b/WGroup.st	Thu Aug 03 03:33:27 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.29 1995-07-27 23:53:45 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.30 1995-08-03 01:33:11 claus Exp $
 '!
 
 !WindowGroup class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.29 1995-07-27 23:53:45 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.30 1995-08-03 01:33:11 claus Exp $
 "
 !
 
@@ -375,7 +375,8 @@
 
 withCursor:aCursor do:aBlock
     "evaluate aBlock while showing aCursor in all
-     my views (used to show wait-cursor while doing something)"
+     my views (used to show wait-cursor while doing something).
+     Return the result as returned by aBlock."
 
     |oldCursors|
 
@@ -388,7 +389,7 @@
 	aView cursor:aCursor
     ].
 
-    aBlock valueNowOrOnUnwindDo:[
+    ^ aBlock valueNowOrOnUnwindDo:[
 	"
 	 restore cursors from the mapping
 	"