@@ -907,11 +907,10 @@
 			     "%"))
 	       (keys     (db:get-keys dbstruct))
 	       ;; (runsdat  (db:get-runs dbstruct runpatt #f #f '()))
 	       (runsdat  (db:get-runs-by-patt dbstruct keys (or runpatt "%") (common:args-get-target)
 					 #f #f))
-		;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
 	       (runs     (db:get-rows runsdat))
 	       (header   (db:get-header runsdat))
 	       (db-targets (args:get-arg "-list-db-targets"))
 	       (seen     (make-hash-table))
 	       (dmode    (let ((d (args:get-arg "-dumpmode")))
@@ -1278,11 +1277,11 @@
 	  ;; can setup as client for server mode now
 	  ;; (client:setup)
 
 	  (if (args:get-arg "-load-test-data")
 	      ;; has sub commands that are rdb:
-	      ;; DO NOT put this one into either cdb:remote-run or open-run-close
+	      ;; DO NOT put this one into either rmt: or open-run-close
 	      (tdb:load-test-data run-id test-id))
 	  (if (args:get-arg "-setlog")
 	      (let ((logfname (args:get-arg "-setlog")))
 		(rmt:test-set-log! run-id test-id logfname)))
 	  (if (args:get-arg "-set-toplog")
@@ -1375,11 +1374,11 @@
 	  (keys #f))
       (if (not (launch:setup-for-run *area-dat*))
 	  (begin
 	    (debug:print 0 "Failed to setup, exiting")
 	    (exit 1)))
-      (set! keys (cdb:remote-run db:get-keys db))
+      (set! keys (rmt:get-keys)) ;;  db))
       (debug:print 1 "Keys: " (string-intersperse keys ", "))
       (if (sqlite3:database? db)(sqlite3:finalize! db))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-gui")
@@ -1472,10 +1471,11 @@
 	    ;; (import csi)
 	    (import readline)
             (use-legacy-bindings)
 	    (import apropos)
 	    ;; (import (prefix sqlite3 sqlite3:)) ;; doesn't work ...
+	    (include "readline-fix.scm")
 	    (gnu-history-install-file-manager
 	     (let ((d (string-append
 		       (or (get-environment-variable "HOME") ".") "/.megatest")))
 	       (if (not (file-exists? d))
 		   (create-directory d #t))