diff --git a/bundle.lisp b/bundle.lisp
index 05c578ea95b497eae8f19f9323c993a310d28d8c..eaff684d232c3db188b2825046733b96e4afa8bc 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -8,7 +8,7 @@
    :asdf/action :asdf/lisp-action :asdf/plan :asdf/operate :asdf/defsystem)
   (:export
    #:bundle-op #:bundle-type #:program-system
-   #:bundle-pathname-type #:direct-dependency-files
+   #:bundle-system #:bundle-pathname-type #:direct-dependency-files
    #:monolithic-op #:monolithic-bundle-op #:operation-monolithic-p
    #:basic-compile-bundle-op #:prepare-bundle-op
    #:compile-bundle-op #:load-bundle-op #:monolithic-compile-bundle-op #:monolithic-load-bundle-op
diff --git a/doc/asdf.texinfo b/doc/asdf.texinfo
index 68e476e72f5841e15ec8f7ce214e5581a31dd832..0599a5aee73780138c4215059014a8207d8e598e 100644
--- a/doc/asdf.texinfo
+++ b/doc/asdf.texinfo
@@ -948,8 +948,8 @@ make document-formatting the default operation invoked by @code{make},
 instead of loading.  If the system developer doesn't specify in the
 system definition, the default operation will be loading.
 
-@c It's probably better that bundle operations have their own manual
-@c chapter at some point.
+@c FIXME: We seem to export @findex bundle-system also, that some ECL users seem to rely on.
+@c But it's probably better that bundle operations have their own manual chapter at some point.
 
 
 @c FIXME: There should be a @defun for OPERATE, but there isn't.  Not
diff --git a/doc/exported-functions b/doc/exported-functions
index 8ffd5673cbc0073a2628c55f7103b89a3ac34fe5..2013d3d8e1a85b99c1d3184b311c1c78868bdf3d 100644
--- a/doc/exported-functions
+++ b/doc/exported-functions
@@ -3,6 +3,7 @@ ALREADY-LOADED-SYSTEMS
 APPLY-OUTPUT-TRANSLATIONS
 ASDF-MESSAGE
 ASDF-VERSION
+BUNDLE-SYSTEM
 CLEAR-CONFIGURATION
 CLEAR-OUTPUT-TRANSLATIONS
 CLEAR-SOURCE-REGISTRY
diff --git a/interface.lisp b/interface.lisp
index 5e535d63892ed016aaa7d4c4f0a13454ed40580c..f1a086b9120af029337255df1406b8be75be6fc2 100644
--- a/interface.lisp
+++ b/interface.lisp
@@ -34,7 +34,7 @@
    #:operation-done-p #:explain #:action-description #:component-sideway-dependencies
    #:needed-in-image-p
    #:component-load-dependencies #:run-shell-command ; deprecated, do not use
-   #:bundle-op #:monolithic-bundle-op #:precompiled-system #:compiled-file
+   #:bundle-op #:monolithic-bundle-op #:precompiled-system #:compiled-file #:bundle-system
    #:program-system #:make-build
    #:basic-compile-bundle-op #:prepare-bundle-op
    #:compile-bundle-op #:load-bundle-op #:monolithic-compile-bundle-op #:monolithic-load-bundle-op
diff --git a/test/test-utilities.script b/test/test-utilities.script
index 2bfbb0fd2b6164cdfc0df9df13f452f24a4555c3..a186bb3da0362a240c665e0c3fd5d6a628641cb0 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -274,6 +274,7 @@
     asdf/bundle:user-system
     #+sbcl uiop/lisp-build:sb-grovel-unknown-constant-condition
     ;; on some implementations only
+    asdf/bundle:bundle-system
     asdf/bundle:static-library
     uiop/os:parse-file-location-info
     uiop/os:parse-windows-shortcut