Fix another typo.

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index d00d8239897fee66ce48c27ff5efd38975ae0b32..732fcaaddb36eb4364de70f13d1dce2bf9233b87 100644 (file)
--- 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)))