diff --git a/test-suite/tests/procprop.test b/test-suite/tests/procprop.test
index 5ab585058..40e89c792 100644
--- a/test-suite/tests/procprop.test
+++ b/test-suite/tests/procprop.test
@@ -44,7 +44,9 @@
             '(1 0 #f)))
 
   (pass-if "apply"
-    (equal? (procedure-property apply 'arity)
+    (equal? (if ((@ (system vm program) program?) apply)
+                (throw 'unresolved)
+                (procedure-property apply 'arity))
             '(1 0 #t)))
 
   (pass-if "cons*"