--- a/ClassDescription.st	Tue Feb 26 14:04:23 2002 +0100
+++ b/ClassDescription.st	Tue Feb 26 14:06:29 2002 +0100
@@ -1592,7 +1592,7 @@
 
             [
                 self compilerClass compile:code forClass:self inCategory:cat
-            ] valueNowOrOnUnwindDo:[
+            ] ensure:[
                 Compiler stcCompilation:prev.
 
                 (self compiledMethodAt:aSelector) isNil ifTrue:[
@@ -2755,28 +2755,28 @@
      accept in the browser in a multi-display (or timesliced) configuration"
 
     ChangeFileAccessLock critical:[
-	|aStream|
-
-	FileOutNameSpaceQuerySignal answer:true
-	do:[
-	    aStream := self changesStream.
-	    aStream notNil ifTrue:[
-		[
-		    FileStream writeErrorSignal handle:[:ex |
-			self warn:('could not update the changes-file\\' , ex errorString) withCRs.
-			ex return
-		    ] do:[
-			doStampIt ifTrue:[
-			    self addChangeTimeStampTo:aStream
-			].
-			aBlock value:aStream.
-			aStream cr.
-		    ].
-		] valueNowOrOnUnwindDo:[
-		    aStream close
-		]
-	    ]
-	]
+        |aStream|
+
+        FileOutNameSpaceQuerySignal answer:true
+        do:[
+            aStream := self changesStream.
+            aStream notNil ifTrue:[
+                [
+                    FileStream writeErrorSignal handle:[:ex |
+                        self warn:('could not update the changes-file\\' , ex errorString) withCRs.
+                        ex return
+                    ] do:[
+                        doStampIt ifTrue:[
+                            self addChangeTimeStampTo:aStream
+                        ].
+                        aBlock value:aStream.
+                        aStream cr.
+                    ].
+                ] ensure:[
+                    aStream close
+                ]
+            ]
+        ]
     ]
 
     "Modified: 22.3.1997 / 17:12:40 / cg"
@@ -3956,6 +3956,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.131 2002-02-15 12:43:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.132 2002-02-26 13:06:29 cg Exp $'
 ! !
 ClassDescription initialize!