Index: /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp	(revision 9605)
+++ /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp	(revision 9606)
@@ -19,7 +19,7 @@
 
 (defx8632lapfunction %bignum-ref-hi ((bignum arg_y) (i arg_z))
-  (int ($ 3)))
-
-
+  (movzwl (@ (+ 2 x8632::misc-data-offset) (% bignum) (% i)) (% imm0))
+  (box-fixnum imm0 arg_z)
+  (single-value-return))
 
 ;;; BIGNUM[I] := DIGIT[0]