Fix fencepost error in level.

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index e308ee88f9b2f52a8237c0271e561c6666cedfb3..eab8a55dd44a9a053c78e0b3fdbce75ff982e893 100644 (file)
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -517,7 +517,7 @@ swank:xref
                         socket)
          (sldb-loop level socket))
        (lambda ()
-         (write-message `(:debug-return 0 ,level 'NIL) socket)))))
+         (write-message `(:debug-return 0 ,(- level 1) 'NIL) socket)))))
 
 (define (sldb-loop level socket)
   (write-message `(:debug-activate 0 ,level) socket)