diff --git a/s/cpnanopass.ss b/s/cpnanopass.ss
index 8538b5fa48..85df5f56ac 100644
--- a/s/cpnanopass.ss
+++ b/s/cpnanopass.ss
@@ -1728,7 +1728,8 @@
         [(call ,info ,mdcl ,pr
                (case-lambda ,info2 (clause (,x) ,interface ,[body (->in-get-cont mode) -> body])))
          (guard (and (memq mode '(tail tail/none tail/some tail/reified))
-                     (eq? (primref-name pr) 'call/cc)
+                     (or (eq? (primref-name pr) 'call/cc)
+                         (eq? (primref-name pr) 'call-with-current-continuation))
                      (= interface 1)))
          ;; Since we're in tail position, we can just reify the continuation and
          ;; put the stack link in the argument variable.