     ] assoc-each ;
 
 : emit-special-object ( obj idx -- )
-    [ ' ] [ header-size + ] bi* fixup ;
+    [ prepare-object ] [ header-size + ] bi* fixup ;
 
 : emit-special-objects ( -- )
     special-objects get [ swap emit-special-object ] assoc-each ;

: fixup-words ( -- )
    bootstrapping-image get [ dup word? [ fixup-word ] when ] map! drop ;

M: word ' ;

! Wrappers

M: wrapper '
    [ wrapped>> ' wrapper [ emit ] emit-object ] cache-eql-object ;

! Strings
: native> ( object -- object )

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

! Bignums

