--- a/GraphicsContext.st	Mon Jun 13 20:19:43 2005 +0200
+++ b/GraphicsContext.st	Mon Jun 13 20:20:09 2005 +0200
@@ -2292,10 +2292,10 @@
     oldClip := clipRect.
     self clippingRectangle:aRectangle.
 
-    aBlock value.
-
-    self clippingRectangle:oldClip
-
+    aBlock 
+        ensure:[
+            self clippingRectangle:oldClip
+        ]
 !
 
 flush
@@ -2309,7 +2309,7 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.107 2005-04-18 15:59:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.108 2005-06-13 18:20:09 cg Exp $'
 ! !
 
 GraphicsContext initialize!