@@ -17,13 +17,10 @@
 ;;
 
 ;; (include "common.scm")
 ;; (include "megatest-version.scm")
 
-;; fake out readline usage of toplevel-command
-(define (toplevel-command . a) #f)
-
 ;; (declare (uses common))
 ;; (declare (uses megatest-version))
 ;; (declare (uses margs))
 (declare (uses mtargs))
 (declare (uses mtargs.import))
@@ -86,8 +83,12 @@
 (declare (uses launch))
 (declare (uses server))
 (declare (uses genexample))
 (declare (uses mtbody))
 
+(import csi)
+;; fake out readline usage of toplevel-command
+(set! toplevel-command (lambda (a b) #f))
+
 (import mtbody)
 
 (main)