diff --git a/collects/tests/xrepl/xrepl.rkt b/collects/tests/xrepl/xrepl.rkt
index 9d832d0e50..31205ea5c6 100644
--- a/collects/tests/xrepl/xrepl.rkt
+++ b/collects/tests/xrepl/xrepl.rkt
@@ -151,9 +151,13 @@
   -> «,desc racket/runtime-path»
   ; `racket/runtime-path' is a module,
   ;   located at racket/runtime-path.rkt
-  ;   imports: mzlib/runtime-path.rkt, racket/base.rkt.
+  ;   imports: racket/base.rkt, racket/list.rkt,
+  ;     racket/private/runtime-path-table.rkt,
+  ;     racket/private/this-expression-source-directory.rkt, setup/dirs.rkt.
   ;   imports-for-syntax: racket/base.rkt.
-  ;   direct syntax exports: define-runtime-module-path.
+  ;   direct syntax exports: define-runtime-module-path,
+  ;     define-runtime-module-path-index, define-runtime-path,
+  ;     define-runtime-path-list, define-runtime-paths, runtime-paths.
   -> «(current-directory "/( none )")»  ⇒ racket allows this
   ; now in /( none )                    ⇒ reports without ,cd
   -> «,cd @|tmp|»
diff --git a/collects/xrepl/xrepl.rkt b/collects/xrepl/xrepl.rkt
index 4b79ea18c5..7e3588f1ec 100644
--- a/collects/xrepl/xrepl.rkt
+++ b/collects/xrepl/xrepl.rkt
@@ -701,7 +701,8 @@
         (printf ".\n"))))
   (define (show-exports exports kind)
     (for ([exps (in-list exports)])
-      (let ([phase (car exps)] [exps (cdr exps)])
+      (let ([phase (car exps)]
+            [exps (sort (cdr exps) string<? #:key symbol->string)])
         (printf ";   direct ~a exports~a: ~a"
                 kind (phase->name phase "-~a") (car exps))
         (for ([exp (in-list (cdr exps))]) (printf ", ~a" exp))