--- a/CompiledCode.st	Wed Apr 14 11:07:50 2004 +0200
+++ b/CompiledCode.st	Thu Apr 15 10:45:50 2004 +0200
@@ -1448,15 +1448,14 @@
     |decompiler|
 
     decompiler := self decompilerClass.
-    decompiler notNil ifTrue:[
-        Autoload autoloadFailedSignal handle:[:ex |
-            ex return
-        ] do:[
-            decompiler autoload.
-        ].
+    decompiler isNil ifTrue:[
+        ^ false
     ].
-    (decompiler isNil or:[decompiler isLoaded not]) ifTrue:[
-        ^ false
+
+    Autoload autoloadFailedSignal handle:[:ex |
+        ^ false.
+    ] do:[
+        decompiler autoload.
     ].
 
     decompiler decompile:self to:aStream.
@@ -1649,5 +1648,5 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.95 2004-03-17 16:15:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.96 2004-04-15 08:45:50 stefan Exp $'
 ! !