     strip-io? [
         "io.files" init-hooks get delete-at
         "io.backend" init-hooks get delete-at
+        "io.thread" init-hooks get delete-at
     ] when
     strip-dictionary? [
         {

    #! Quotations which were formerly compiled must remain
    #! compiled.
    2dup [
        2dup [ compiled>> ] [ compiled>> not ] bi* and
        [ nip jit-compile ] [ 2drop ] if
    ] 2each ;



: strip-compiler-classes ( -- )
    "Stripping compiler classes" show
    { "compiler" "stack-checker" }
    [ child-vocabs [ words ] map concat [ class? ] filter ] map concat
    [ dup implementors [ "methods" word-prop delete-at ] with each ] each ;

: strip-default-methods ( -- )
