diff --git a/s/cpnanopass.ss b/s/cpnanopass.ss
index 3c0848581a..5aefe61add 100644
--- a/s/cpnanopass.ss
+++ b/s/cpnanopass.ss
@@ -10081,7 +10081,8 @@
               x)))
         (define make-info-call-like
           (lambda (info shift-consumer-attachment?*)
-            (make-info-call (info-call-src info) (info-call-sexpr info) #f #f #f
+            (make-info-call (info-call-src info) (info-call-sexpr info)
+                            (info-call-check? info) (info-call-pariah? info) (info-call-error? info)
                             (info-call-shift-attachment? info)
                             shift-consumer-attachment?*)))
         (define Mvcall