--- a/Method.st	Tue Dec 04 14:23:30 2001 +0100
+++ b/Method.st	Tue Dec 04 17:38:29 2001 +0100
@@ -1059,16 +1059,16 @@
     |doMachineCode mthd|
 
     byteCode notNil ifTrue:[
-	"
-	 is already a bytecoded method
-	"
-	^ self
+        "
+         is already a bytecoded method
+        "
+        ^ self
     ].
     doMachineCode := Compiler stcCompilation:#never.
     [
-	mthd := self asExecutableMethod.
-    ] valueNowOrOnUnwindDo:[
-	Compiler stcCompilation:doMachineCode.
+        mthd := self asExecutableMethod.
+    ] ensure:[
+        Compiler stcCompilation:doMachineCode.
     ].
     ^ mthd
 
@@ -1081,9 +1081,9 @@
 
     doMachineCode := Compiler stcCompilation:#never.
     [
-	mthd := self asExecutableMethodWithSource:newSource.
-    ] valueNowOrOnUnwindDo:[
-	Compiler stcCompilation:doMachineCode.
+        mthd := self asExecutableMethodWithSource:newSource.
+    ] ensure:[
+        Compiler stcCompilation:doMachineCode.
     ].
     ^ mthd
 
@@ -1182,7 +1182,7 @@
                                              ifFail:nil
                     ].
                 ].
-            ] valueNowOrOnUnwindDo:[
+            ] ensure:[
                 Compiler compileLazy:lazy.
                 Smalltalk silentLoading:silent.
             ]
@@ -2857,6 +2857,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.237 2001-11-26 21:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.238 2001-12-04 16:38:29 stefan Exp $'
 ! !
 Method initialize!