diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm
index 4af70c0c0..7f23df601 100644
--- a/module/system/base/syntax.scm
+++ b/module/system/base/syntax.scm
@@ -20,10 +20,7 @@
 ;;; Code:
 
 (define-module (system base syntax)
-  :use-module (ice-9 receive)
-  :use-module (ice-9 and-let-star)
-  :export (stack-catch receive and-let*
-           %make-struct slot
+  :export (%make-struct slot
            %slot-1 %slot-2 %slot-3 %slot-4 %slot-5
            %slot-6 %slot-7 %slot-8 %slot-9
            list-fold)
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index 802df5aa8..c0f05b45a 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -32,7 +32,8 @@
   :autoload (system vm profile) (vm-profile)
   :use-module (ice-9 format)
   :use-module (ice-9 session)
-  :use-module (ice-9 documentation))
+  :use-module (ice-9 documentation)
+  :use-module (ice-9 and-let-star))
 
 
 ;;;
diff --git a/module/system/vm/disasm.scm b/module/system/vm/disasm.scm
index 9d0bb9c24..399300824 100644
--- a/module/system/vm/disasm.scm
+++ b/module/system/vm/disasm.scm
@@ -26,7 +26,6 @@
   :use-module (ice-9 match)
   :use-module (ice-9 format)
   :use-module (ice-9 receive)
-  :use-module (ice-9 and-let-star)
   :export (disassemble-objcode disassemble-program disassemble-bytecode))
 
 (define (disassemble-objcode objcode . opts)