Index: /branches/ia32/lisp-kernel/x86_print.c
===================================================================
--- /branches/ia32/lisp-kernel/x86_print.c	(revision 8234)
+++ /branches/ia32/lisp-kernel/x86_print.c	(revision 8235)
@@ -338,4 +338,22 @@
     sprint_unsigned_hex(o);
   }
+#else
+  LispObj f = 0;
+  unsigned disp = 0;
+
+  if (*(unsigned char *)o == RECOVER_FN_OPCODE) {
+    f = (LispObj)(*((natural *)(o + 1)));
+    disp = o - f;
+  }
+
+  if (f && header_subtag(header_of(f)) == subtag_function) {
+    add_c_string("tagged return address: ");
+    sprint_function(f, depth);
+    add_c_string(" + ");
+    sprint_unsigned_decimal(disp);
+  } else {
+    add_c_string("(tra ?) : ");
+    sprint_unsigned_hex(o);
+  }
 #endif
 }
@@ -476,4 +494,6 @@
     case fulltag_nodeheader_1:
 #else
+    case fulltag_immheader:
+    case fulltag_nodeheader:
 #endif      
       add_c_string("#<header ? ");
@@ -486,4 +506,5 @@
     case fulltag_imm_1:
 #else
+    case fulltag_imm:
 #endif
       if (o == unbound) {
@@ -534,10 +555,14 @@
       sprint_function(o, depth);
       break;
-
+#endif
+
+#ifdef X8664
     case fulltag_tra_0:
     case fulltag_tra_1:
+#else
+    case fulltag_tra:
+#endif
       sprint_tra(o,depth);
       break;
-#endif
     }
   }