diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 449f5327f..e37b870bf 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-31  Keisuke Nishida  <knishida@nurs.or.jp>
+
+	* boot-9.scm (process-define-module): Bug fixed.
+
 2001-07-24  Marius Vollmer  <mvo@zagadka.ping.de>
 
 	* syncase.scm (psyncomp): Removed, it is now in
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index d1ac9a7f1..67e20c523 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -1747,14 +1747,14 @@
 		 (unrecognized kws))
 	     (let* ((interface-args (cadr kws))
 		    (interface (apply resolve-interface interface-args)))
-	       (and (eq? (car kws) 'use-syntax)
-		    (or (symbol? (car spec))
+	       (and (eq? (car kws) #:use-syntax)
+		    (or (symbol? (caar interface-args))
 			(error "invalid module name for use-syntax"
-			       spec))
+			       (car interface-args)))
 		    (set-module-transformer!
 		     module
-		     (module-ref interface (car 
-					    (last-pair (car interface-args)))
+		     (module-ref interface
+				 (car (last-pair (car interface-args)))
 				 #f)))
 	       (loop (cddr kws)
 		     (cons interface reversed-interfaces)