     [ compress-object? ] [ ] "objects" compress ;
 
 : remain-compiled ( old new -- old new )
+    ! Quotations which were formerly compiled must remain
+    ! compiled.
     2dup [
         2dup [ quotation-compiled? ] [ quotation-compiled? not ] bi* and
         [ nip jit-compile ] [ 2drop ] if

    ] when ;

: strip-c-io ( -- )
    strip-io?
    native-io? os windows? not and
    or [

    ] recover ; inline

: (deploy) ( final-image vocab-manifest-out vocab config -- )
    ! Does the actual work of a deployment in the slave
    ! stage2 image
    [
        [
            strip-debugger? [
