     0 emit ! pointer to bignum 0
     0 emit ! pointer to bignum 1
     0 emit ! pointer to bignum -1
-    special-object-count [ f ' emit ] times ;
+    special-object-count [ f prepare-object emit ] times ;
 
 ! Bignums
 

    ] assoc-each ;

: emit-special-object ( obj idx -- )
    [ ' ] [ header-size + ] bi* fixup ;

: emit-special-objects ( -- )
    special-objects get [ swap emit-special-object ] assoc-each ;

        [ 0 emit-fixnum ] emit-object
    ] bi* ;

M: byte-array prepare-object
    [
        byte-array [
            dup length emit-fixnum
