Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5219)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5220)
@@ -521,4 +521,5 @@
 (define-header one-digit-bignum-header 1 subtag-bignum)
 (define-header two-digit-bignum-header 2 subtag-bignum)
+(define-header three-digit-bignum-header 3 subtag-bignum)
 (define-header symbol-header symbol.element-count subtag-symbol)
 (define-header value-cell-header value-cell.element-count subtag-value-cell)