diff --git a/module/language/cps/simplify.scm b/module/language/cps/simplify.scm
index bd7909806..1733161bb 100644
--- a/module/language/cps/simplify.scm
+++ b/module/language/cps/simplify.scm
@@ -60,7 +60,7 @@
          (for-each visit-fun funs)
          (visit-term body term-k term-args))
         (($ $continue k src ($ $values args))
-         (when (equal? term-args args)
+         (when (and (equal? term-args args) (not (eq? k term-k)))
            (hashq-set! table term-k k)))
         (($ $continue k src (and fun ($ $fun)))
          (visit-fun fun))