diff --git a/bundle.lisp b/bundle.lisp
index 4c5c6ea9fa1a950969024f325f111abf46f4f71a..7c6204cf23e184455cafcf1de2ff0b99de46ba9d 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -127,6 +127,10 @@ itself.")) ;; operation on a system and its dependencies
     ((gather-op :initform #+(or ecl mkcl) 'lib-op #-(or ecl mkcl) 'compile-bundle-op :allocation :class))
     (:documentation "Create a single fasl for the system and its dependencies."))
 
+  (defclass monolithic-load-bundle-op (monolithic-bundle-op load-bundle-op)
+    ((selfward-operation :initform 'monolithic-compile-bundle-op :allocation :class))
+    (:documentation "Load a single fasl for the system and its dependencies."))
+
   (defclass monolithic-lib-op (monolithic-bundle-op lib-op non-propagating-operation) ()
     (:documentation "Create a single linkable library for the system and its dependencies."))
 
diff --git a/test/test-operation-classes.script b/test/test-operation-classes.script
index 8482596ee99c7382d5b4220d56df86be746795e6..90816d203dfef4f901d1b03732a211f5e0ff0d61 100644
--- a/test/test-operation-classes.script
+++ b/test/test-operation-classes.script
@@ -11,6 +11,7 @@
 
 (defparameter *good-classes*
   '(build-op
+    compile-bundle-op
     compile-concatenated-source-op
     compile-op
     concatenate-source-op
@@ -19,6 +20,7 @@
     fasl-op
     image-op
     lib-op
+    load-bundle-op
     load-compiled-concatenated-source-op
     load-concatenated-source-op
     load-fasl-op
@@ -32,7 +34,7 @@
     monolithic-lib-op
     monolithic-load-compiled-concatenated-source-op
     monolithic-load-concatenated-source-op
-    prepare-fasl-op
+    prepare-bundle-op
     prepare-op
     prepare-source-op
     program-op