--- a/UIHelpTool.st	Wed May 14 13:06:43 2003 +0200
+++ b/UIHelpTool.st	Wed May 14 13:09:04 2003 +0200
@@ -848,16 +848,15 @@
 
 withoutModifyDo:aBlock
     "discard modifications; trigger not the modifiedHolder during
-     the action is active.
-    "
+     the action is active"
+
     |holder|
 
+    modifiedHolder isNil ifTrue:[
+        ^ aBlock value
+    ].
     holder := modifiedHolder.
-
-    holder isNil ifTrue:[
-	^ aBlock value
-    ].
-    ^ aBlock valueNowOrOnUnwindDo:[ modifiedHolder := holder ]
+    ^ aBlock ensure:[modifiedHolder := holder]
 ! !
 
 !UIHelpTool methodsFor:'private'!