(defun run-console (startup lib-loader &key (interactive nil))\r
(if *repl-mode* (progn (funcall startup) \r
(return-from run-console t))\r
- (with-ltk ()\r
+ (with-ltk (:debug :develop)\r
(let* ((txt (make-instance 'text))\r
(menu (make-menubar))\r
(m-file (make-menu menu "File"))\r