diff --git a/assembler/rompconst.lisp b/assembler/rompconst.lisp
index 26be4e6c66e19345982d28afbe5ed2fb1460cafa..b653257d20bc89f8be2208f7c304bf1ba9315efe 100644
--- a/assembler/rompconst.lisp
+++ b/assembler/rompconst.lisp
@@ -868,11 +868,12 @@
 (register name 9)		; Name of function we are trying to call
 (register l3 10)		; Boxed Temporary
 (register old-fp 10)		; Fp to return to
+(register old-cont 10)		; Fp to return to (old name)
 (register l4 11)		; Boxed Temporary
 (register args 11)		; Pointer to stack arguments
 (register bs 12)		; Binding Stack Pointer
-(register fp 13)		; Active Frame Pointer (old name)
-(register fp 13)		; Current Fp
+(register fp 13)		; Frame Pointer 
+(register cont 13)		; Current Fp (old name)
 (register af 14)		; Active Function Pointer (old name)
 (register env 14)		; Current constant pool, called function.
 (register pc 15)		; PC, Return PC for misc-ops, and