From c69a5844f132ca7d6980b2affb94578db42b0477 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Apr 2012 22:54:20 -0700
Subject: [PATCH] Fix fencepost error in level.

---
 src/runtime/swank.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.25.1