diff --git a/compiler/old-rt/system.lisp b/compiler/old-rt/system.lisp
index 90ecd445fc8442995f26a6c24f2a93ed3d770609..66886980e495a582458f607dacbcbc60cc161bbd 100644
--- a/compiler/old-rt/system.lisp
+++ b/compiler/old-rt/system.lisp
@@ -28,7 +28,11 @@
   (:args (ptr1 :scs (descriptor-reg) :target temp)
 	 (ptr2 :scs (descriptor-reg)))
   (:results (res :scs (any-reg descriptor-reg)))
-  (:temporary (:from (:argument 0) :to (:result 0) :target res) temp)
+  (:temporary (:sc any-reg
+	       :from (:argument 0)
+	       :to (:result 0)
+	       :target res)
+	      temp)
   (:generator 1
     (unless (location= ptr1 temp)
       (inst lr temp ptr1))