--- a/HTMLDocGenerator.st	Tue Feb 26 14:02:59 2002 +0100
+++ b/HTMLDocGenerator.st	Tue Feb 26 14:04:09 2002 +0100
@@ -482,7 +482,7 @@
         Smalltalk loadBinaries:false.
         [
             aClass autoload.
-        ] valueNowOrOnUnwindDo:[
+        ] ensure:[
             didLoadBin ifTrue:[Smalltalk loadBinaries:true].
         ]
     ].
@@ -1773,5 +1773,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.34 2002-02-25 19:57:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.35 2002-02-26 13:04:09 cg Exp $'
 ! !