 
 : finish-deploy ( final-image -- )
     "Finishing up" show
-    >r { } set-datastack r>
+    [ { } set-datastack ] dip
     { } set-retainstack
     V{ } set-namestack
     V{ } set-catchstack

                "default-method"
                "default-output-classes"
                "derived-from"
                "engines"
                "forgotten"
                "identities"

    strip-c-io
    f 5 setenv ! we can't use the Factor debugger or Factor I/O anymore
    deploy-vocab get vocab-main set-boot-quot*
    stripped-word-props
    stripped-globals strip-globals
    strip-words
    compress-byte-arrays
    compress-quotations
    compress-strings
