--- a/CompiledCode.st	Mon Apr 11 10:53:28 2005 +0200
+++ b/CompiledCode.st	Mon Apr 11 16:41:33 2005 +0200
@@ -1477,19 +1477,21 @@
 !
 
 decompileTo:aStream
-    |decompiler|
+    |decompilerClass decompiler|
 
-    decompiler := self decompilerClass.
-    decompiler isNil ifTrue:[
+    decompilerClass := self decompilerClass.
+    decompilerClass isNil ifTrue:[
         ^ false
     ].
 
     Autoload autoloadFailedSignal handle:[:ex |
         ^ false.
     ] do:[
-        decompiler autoload.
+        decompilerClass autoload.
     ].
 
+    decompiler := decompilerClass new.
+    decompiler targetClass:self mclass.
     decompiler decompile:self to:aStream.
     ^ true
 
@@ -1680,5 +1682,5 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.99 2005-01-21 16:51:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.100 2005-04-11 14:41:33 cg Exp $'
 ! !