diff --git a/module/language/cps/dfg.scm b/module/language/cps/dfg.scm
index 7fc8ed4af..460843c25 100644
--- a/module/language/cps/dfg.scm
+++ b/module/language/cps/dfg.scm
@@ -907,7 +907,7 @@ body continuation in the prompt."
     (define (idx->var idx) (+ idx min-var))
 
     (let lp ((label (dfg-min-label dfg)))
-      (when (< label (dfg-max-label dfg))
+      (when (<= label (dfg-max-label dfg))
         (let ((cont (vector-ref (dfg-cont-table dfg) (label->idx label))))
           (when cont
             (unless (equal? (lookup-predecessors label dfg) (list (1- label)))