diff --git a/compiler/old-rt/assem-macs.lisp b/compiler/old-rt/assem-macs.lisp
index ee457222d289c5122ad1a5462c6ff187fb3c5392..aa9b9a198a120e4bd69033b87b28f20764d0c6d6 100644
--- a/compiler/old-rt/assem-macs.lisp
+++ b/compiler/old-rt/assem-macs.lisp
@@ -116,7 +116,7 @@
        ((any-reg descriptor-reg string-char-reg)
 	(sc-case ,n-stack
 	  ((stack string-char-stack)
-	   (loadw ,n-reg cont-tn (tn-offset ,n-stack))))))))
+	   (loadw ,n-reg fp-tn (tn-offset ,n-stack))))))))
 
 
 (defmacro store-stack-tn (stack reg)
@@ -126,7 +126,7 @@
        ((any-reg descriptor-reg string-char-reg)
 	(sc-case ,n-stack
 	  ((stack string-char-stack)
-	   (storew ,n-reg cont-tn (tn-offset ,n-stack))))))))
+	   (storew ,n-reg fp-tn (tn-offset ,n-stack))))))))