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


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

: strip-default-methods ( -- )

    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? [
        {
