diff --git a/bundle.lisp b/bundle.lisp
index 41bbc0b47b25e8690ba33136712b2965f32e257f..069568695f491b6856583bedb3431a9e63789fb6 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -454,7 +454,8 @@ itself.")) ;; operation on a system and its dependencies
 
 #+ecl
 (with-upgradability ()
-  (setf *load-system-operation* 'load-fasl-op)
+  (unless (use-ecl-byte-compiler-p)
+    (setf *load-system-operation* 'load-fasl-op))
 
   (defmethod perform ((o link-op) (c system))
     (let* ((object-files (input-files o c))