diff --git a/bundle.lisp b/bundle.lisp
index 069568695f491b6856583bedb3431a9e63789fb6..4e3106d3eeb7eb93dfbf72c334ed758cfedcfd02 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -454,8 +454,10 @@ itself.")) ;; operation on a system and its dependencies
 
 #+ecl
 (with-upgradability ()
-  (unless (use-ecl-byte-compiler-p)
-    (setf *load-system-operation* 'load-fasl-op))
+  ;; I think that Juanjo intended for this to be,
+  ;; but it breaks 4 tests in what looks like to be a compiler bug, so I'll punt for now.
+  ;;(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))