Index: /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp	(revision 7914)
+++ /branches/ia32/level-0/X86/X8632/x8632-bignum.lisp	(revision 7915)
@@ -158,5 +158,5 @@
 
 ;;; To normalize a bignum is to drop "trailing" digits which are
-;;; redundant sign information.  When return-fixum-p is t, make
+;;; redundant sign information.  When return-fixnum-p is t, make
 ;;; the resultant bignum into a fixnum if it fits.
 (defx8632lapfunction %normalize-bignum-2 ((return-fixnum-p arg_y) (bignum arg_z))
@@ -183,5 +183,5 @@
     (movl (% next) (% sign))
     ;; (bignum-ref bignum (- len 2)), i.e., next-to-last digit
-    (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% imm0)) (% next))
+    (movl (@ (- x8632::misc-data-offset 8) (% bignum) (% len)) (% next))
     @test
     (movl (% next) (% imm0))