diff --git a/lib/chibi/repl.scm b/lib/chibi/repl.scm
index da760e4a..184059db 100644
--- a/lib/chibi/repl.scm
+++ b/lib/chibi/repl.scm
@@ -283,17 +283,22 @@
    ((and (exception? exn)
          (equal? "undefined variable" (exception-message exn))
          (pair? (exception-irritants exn)))
-    (let* ((name (car (exception-irritants exn)))
-           (mods (and (identifier? name)
-                      (modules-exporting-identifier name))))
-      (cond
-       ((pair? mods)
-        (display name out)
-        (display " is exported by:\n")
-        (for-each
-         (lambda (m)
-           (display "  " out) (write m out) (newline out))
-         (sort (map car mods)))))))))
+    (let ((name (car (exception-irritants exn))))
+      (display "Searching for modules exporting " out)
+      (display name out)
+      (display " ...\n" out)
+      (let ((mods (and (identifier? name)
+                       (modules-exporting-identifier name))))
+        (cond
+         ((pair? mods)
+          (display name out)
+          (display " is exported by:\n")
+          (for-each
+           (lambda (m)
+             (display "  " out) (write m out) (newline out))
+           (sort (map car mods)
+                 (lambda (a b)
+                   (string<? (write-to-string a) (write-to-string b))))))))))))
 
 (define (repl/eval rp expr-list)
   (let ((out (repl-out rp)))