diff --git a/scripts/ChangeLog b/scripts/ChangeLog
index 83e877702..3f5c17fe8 100644
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-26  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* lint (lint): Add message telling resolved module name.
+
 2002-10-05  Marius Vollmer  <mvo@zagadka.ping.de>
 
 	* snarf-check-and-output-texi (end-multiline): Use '*function-name*'
diff --git a/scripts/lint b/scripts/lint
index a43cfc065..9921020ed 100755
--- a/scripts/lint
+++ b/scripts/lint
@@ -115,6 +115,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 	(free-vars (uniq (scan-file-for-free-variables filename))))
     (let ((module (resolve-module module-name))
 	  (all-resolved? #t))
+      (format #t "Resolved module: ~S\n" module)
       (let loop ((free-vars free-vars))
 	(or (null? free-vars)
 	    (begin