diff --git a/compiler/rt/call.lisp b/compiler/rt/call.lisp
index 14a20abba1510727e623788d488dd642976f8f44..301e38ad7d488977d9bd12cc285d63dfbd840e29 100644
--- a/compiler/rt/call.lisp
+++ b/compiler/rt/call.lisp
@@ -234,7 +234,8 @@
 ;;;
 (define-vop (allocate-full-call-frame)
   (:info nargs)
-  (:results (res :scs (word-pointer-reg)))
+  (:results (res :scs (word-pointer-reg)
+		 :load-if (> nargs register-arg-count)))
   (:generator 2
     (when (> nargs register-arg-count)
       (move res csp-tn)