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

    [ compress-object? ] [ ] "objects" compress ;

: remain-compiled ( old new -- old new )
    2dup [
        2dup [ quotation-compiled? ] [ quotation-compiled? not ] bi* and
        [ nip jit-compile ] [ 2drop ] if

    ] when ;

: strip-c-io ( -- )
    ! On all platforms, if deploy-io is 1, we strip out C streams.
    ! On Unix, if deploy-io is 3, we strip out C streams as well.
    ! On Windows, even if deploy-io is 3, C streams are still used
    ! for the console, so don't strip it there.
    strip-io?
    native-io? os windows? not and
    or [
