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

    ] when ;

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

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

: strip-default-methods ( -- )
    ! In a development image, each generic has its own default method.
    ! This gives better error messages for runtime type errors, but
    ! takes up space. For deployment we merge them all together.
    strip-debugger? [
        "Stripping default methods" show
        [ single-generic? ] instances
