Index: ltk.lisp
===================================================================
--- ltk.lisp    (revision 265)
+++ ltk.lisp    (working copy)
@@ -5162,8 +5162,11 @@
   (ignore-errors
     (format *error-output* "An error of has occured: ~%")
     (print-backtrace condition *error-output*)
+    #+asdf3(uiop:quit)
+    #-asdf3
     #+sbcl (quit)
-    #+(or cmu scl) (ext:quit)))
+    #+(or cmu scl) (ext:quit)
+    #-(or cmu scl sbcl)(values)))
 
 (defun debugger-test (debugger-class)
   (with-ltk (:debugger-class debugger-class :debug-tcl t)