Index: /branches/ia32/level-0/X86/X8632/x8632-def.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-def.lisp	(revision 9641)
+++ /branches/ia32/level-0/X86/X8632/x8632-def.lisp	(revision 9642)
@@ -211,5 +211,5 @@
 
 (defx8632lapfunction %return-address-function ((r arg_z))
-  (extract-lisptag r imm0)
+  (extract-fulltag r imm0)
   (cmpb ($ x8632::fulltag-tra) (% imm0.b))
   (jne @fail)
@@ -222,7 +222,6 @@
   (single-value-return))
 
-;;; xxx this may need twiddling to refer to the right place
 (defx8632lapfunction %return-address-offset ((r arg_z))
-  (extract-lisptag r imm0)
+  (extract-fulltag r imm0)
   (cmpb ($ x8632::fulltag-tra) (% imm0.b))
   (jne @fail)