From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Jan 2017 22:17:48 +0000 (-0800)
Subject: Fix another typo.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~118
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee9da6bfd867fb82687a162f84f4c01ff3850a4e;p=mit-scheme.git

Fix another typo.
---

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index d00d82398..732fcaadd 100644
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -1405,7 +1405,7 @@ USA.
 	  (begin
 	    (if (not (pair? (cdr klist)))
 		(lose))
-	    (loop (cdr (cdr list))
+	    (loop (cdr (cdr klist))
 		  (if (eq? (car klist) key)
 		      (cons (car (cdr klist)) values)
 		      values)))