--- a/WindowGroup.st	Thu Mar 26 11:10:20 2015 +0100
+++ b/WindowGroup.st	Thu Mar 26 18:38:46 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -2764,7 +2766,7 @@
      my views (used to show wait-cursor while doing something).
      Return the result as returned by aBlock."
 
-    |oldCursors dev deviceCursor|
+    |oldCursors dev deviceCursor retVal|
 
     dev := self graphicsDevice.   
     (dev isNil or:[aCursor isNil] or:[inWithCursorDoBlock == true]) ifTrue:[
@@ -2790,7 +2792,7 @@
             ]
         ].
 
-        aBlock value. 
+        retVal := aBlock value. 
 
         "used to do a sync here to make the cursor visible,
          but everything is so fast nowaday, that it doesn't make a difference"
@@ -2805,6 +2807,7 @@
         dev flush.
         inWithCursorDoBlock := false.
     ].
+    ^ retVal
 
     "Modified: / 22.4.1998 / 14:36:47 / cg"
 !
@@ -2852,11 +2855,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.339 2015-02-15 17:22:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.340 2015-03-26 17:38:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.339 2015-02-15 17:22:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.340 2015-03-26 17:38:46 cg Exp $'
 ! !