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

    [ [ "No method" throw ] ( -- * ) define-temp ] with-compilation-unit ;

: strip-default-methods ( -- )
    strip-debugger? [
        "Stripping default methods" show
        [ single-generic? ] instances

    [ 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
