@@ -9,11 +9,11 @@
 
 ;; (include "common.scm")
 ;; (include "megatest-version.scm")
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69 base64 format readline apropos json http-client directory-utils rpc ;; (srfi 18) extras)
-     http-client srfi-18) ;;  zmq extras)
+     http-client srfi-18 extras) ;;  zmq extras)
 
 ;; Added for csv stuff - will be removed
 ;;
 (use sparse-vectors)
 
@@ -1403,18 +1403,23 @@
 
 ;;======================================================================
 ;; Start a repl
 ;;======================================================================
 
+;; fakeout readline
+(define (toplevel-command . a) #f)
+
 (if (or (args:get-arg "-repl")
 	(args:get-arg "-load"))
     (let* ((toppath (launch:setup-for-run))
 	   (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
       (if dbstruct
 	  (begin
 	    (set! *db* dbstruct)
 	    (set! *client-non-blocking-mode* #t)
+	    (import extras) ;; might not be needed
+	    ;; (import csi)
 	    (import readline)
 	    (import apropos)
 	    ;; (import (prefix sqlite3 sqlite3:)) ;; doesn't work ...
 	    (gnu-history-install-file-manager
 	     (string-append