diff --git a/module/language/cps/closure-conversion.scm b/module/language/cps/closure-conversion.scm
index 6a1127d9e..26737e924 100644
--- a/module/language/cps/closure-conversion.scm
+++ b/module/language/cps/closure-conversion.scm
@@ -190,7 +190,6 @@
                            (lp var (cons label alias-stack))))))
                    ((eq? closure-label label)
                     ;; Eliminate self-reference.
-                    (pk 'hi)
                     (prune-free closure-label free))
                    (else
                     (adjoin var (prune-free closure-label free)))))