Index: /branches/ia32/level-1/l1-clos-boot.lisp
===================================================================
--- /branches/ia32/level-1/l1-clos-boot.lisp	(revision 7769)
+++ /branches/ia32/level-1/l1-clos-boot.lisp	(revision 7770)
@@ -2105,5 +2105,5 @@
                 (%svref v (+ slice x8632::fulltag-odd-fixnum))  *fixnum-class*
                 (%svref v (+ slice x8632::fulltag-cons)) *cons-class*
-                (%svref v (+ slice x8632::fulltag-nil)) *tagged-return-address-class*
+                (%svref v (+ slice x8632::fulltag-tra)) *tagged-return-address-class*
                 (%svref v (+ slice x8632::fulltag-imm)) *immediate-class*))
         #+x8664-target
@@ -2184,5 +2184,7 @@
         (setf (%svref v target::subtag-instance)
               #'%class-of-instance)
-        (setf (%svref v #+ppc-target target::subtag-symbol #+x86-target target::tag-symbol)
+        (setf (%svref v #+ppc-target target::subtag-symbol
+		      #+x8632-target target::subtag-symbol
+		      #+x8664-target target::tag-symbol)
               #-ppc64-target
               #'(lambda (s) (if (eq (symbol-package s) *keyword-package*)