@@ -7,10 +7,12 @@
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 ;; (include "common.scm")
 ;; (include "megatest-version.scm")
+
+(define (toplevel-command . a) #f)
 
 (define (toplevel-command . a) #f)
 
 ;; fake out readline usage of toplevel-command
 (define (toplevel-command . a) #f)