@@ -117,10 +117,15 @@
          (if (equal? this-func "BB>")
              (set! location this-loc))))
      stack)
     (let ((dp-args (append (list 0 *default-log-port* location"   "  ) in-args)))
       (apply debug:print dp-args))))
+
+(define (BB> . in-args)
+  (apply print "BB> " in-args)
+  "shouldn't do anything")
+
 
 (define (debug:print-error n e . params)
   ;; normal print
   (if (debug:debug-mode n)
       (with-output-to-port (or e (current-error-port))