--- a/RegressionTests__CompilerTest.st	Tue Aug 24 12:53:07 2010 +0200
+++ b/RegressionTests__CompilerTest.st	Tue Aug 24 13:15:28 2010 +0200
@@ -254,6 +254,17 @@
     "Created: / 24-08-2010 / 12:51:50 / cg"
 !
 
+callEnsureWithException
+    [
+        Error raiseRequest
+    ] ensure:[
+        ^ true
+    ].
+    ^ nil
+
+    "Created: / 24-08-2010 / 12:54:07 / cg"
+!
+
 size
     ^ 1
 !
@@ -2152,6 +2163,12 @@
 testEnsure
     self assert:(self callEnsureWith2Returns = true).
 
+    Error handle:[:ex |
+        ex proceed
+    ] do:[
+        self assert:(self callEnsureWithException = true).
+    ].
+
     "Created: / 24-08-2010 / 12:51:27 / cg"
 ! !