Index: /trunk/ccl/level-1/l1-files.lisp
===================================================================
--- /trunk/ccl/level-1/l1-files.lisp	(revision 489)
+++ /trunk/ccl/level-1/l1-files.lisp	(revision 490)
@@ -1191,10 +1191,7 @@
                            str *loading-file-source-file*)
                    (unless (member str *modules* :test #'string-equal)
-                     (catch-cancel
-                       (setq pathname (choose-file-dialog
-                                       :file-types '(#+sparc-target "sfsl"
-                                                     #+ppc-target "pfsl"
-                                                     #-(or ppc-target sparc-target) "fasl"
-                                                        "text")))))
+		     (with-terminal-input
+			 (format t "~&pathname: ")
+		       (setq pathname (read)))                     )
                    pathname)))
     (let ((*loading-modules* (cons str *loading-modules*)))