diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 5d9ad961a..c948210e3 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+Mon Jan  6 01:13:53 1997  Mikael Djurfeldt  <mdj@kenneth>
+
+*	* boot-9.scm (use-modules): New macro (from Marius Vollmer).
+	(use-modules <module name> ...) Put the the modules named by
+ 	<module name> ... on the use list of the current module.
+
 Sun Jan  5 15:52:59 1997  Jim Blandy  <jimb@floss.cyclic.com>
 
 	* boot-9.scm (error-catching-loop): Remove message saying that
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 41bd3e176..fed4f3639 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2148,6 +2148,12 @@ automatically if an error occurs in the future.\n")
      (set-current-module module)
      module))
 
+(defmacro use-modules modules
+  `(for-each (lambda (module)
+	       (module-use! (current-module)
+			    (resolve-interface module)))
+	     (reverse ',modules)))
+
 (define define-private define)
 
 (defmacro define-public args