@@ -361,11 +361,11 @@
                      (lambda ()
                        (if scheme-match
                            (begin
                              (handle-exceptions
                               exn
-                              (print "error with custom menu scheme, exn=" exn)
+                              (debug:print 0 *default-log-port* "error with custom menu scheme, exn=" exn)
                               (begin
                                 ;;(BB> "gonna eval it!")
                                 (eval (with-input-from-string (cadr scheme-match) read)))))
                            (common:run-a-command command-line with-vars: #t))))))))
              #f)))