0.9.2.37:

  * enable-debugger: set *debug-io* to *query-io*

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index dd54548..f7acf9a 100644 (file)
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -655,7 +655,8 @@ reset to ~S."
 
 (defun enable-debugger ()
   (when (eql *invoke-debugger-hook* 'debugger-disabled-hook)
-    (setf *invoke-debugger-hook* nil)))
+    (setf *debug-io* *query-io*
+          *invoke-debugger-hook* nil)))
 
 (setf *debug-io* *query-io*)
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 010c98d..dcaaf93 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.2.36"
+"0.9.2.37"