From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Apr 2012 05:54:20 +0000 (-0700)
Subject: Fix fencepost error in level.
X-Git-Tag: release-9.2.0~254
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c69a5844f132ca7d6980b2affb94578db42b0477;p=mit-scheme.git

Fix fencepost error in level.
---

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index e308ee88f..eab8a55dd 100644
--- 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)