diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index a27510b24..e96d7d306 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-19  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* debugging/ice-9-debugger-extensions.scm (command-loop): Use
+	needed modules.
+
 2008-02-22  Ludovic Courtès  <ludo@gnu.org>
 
 	* match.scm: Export `match:andmap'.  This fixes evaluation of
diff --git a/ice-9/debugging/ice-9-debugger-extensions.scm b/ice-9/debugging/ice-9-debugger-extensions.scm
index 2770c1f73..a8b8c970e 100644
--- a/ice-9/debugging/ice-9-debugger-extensions.scm
+++ b/ice-9/debugging/ice-9-debugger-extensions.scm
@@ -28,7 +28,10 @@
 
 (cond ((string>=? (version) "1.7")
        (use-modules (ice-9 debugger command-loop))
-       (define-module (ice-9 debugger command-loop))
+       (define-module (ice-9 debugger command-loop)
+	 #:use-module (ice-9 debugger)
+	 #:use-module (ice-9 debugger state)
+	 #:use-module (ice-9 debugging traps))
        (define new-define-command define-command)
        (set! define-command
 	     (lambda (name argument-template documentation procedure)