     " vocabulary which failed to load" print ;
 
 [
-    dup vocab-name blacklist get member? [
+    dup vocab-name blacklist get key? [
         vocab-name blacklisted-vocab
     ] [
         [

    dup first vocab-heading.
    dup second print-error
    drop ;
    ! third "Traceback" swap write-object ;

: load-failures. ( failures -- )
    [ load-error. nl ] each ;

    [
        V{ } clone blacklist set
        [
            [ require ]
            [ >r vocab-name r> 2array blacklist get push ]
            recover
        ] each
        blacklist get
    ] with-compiler-errors ;

: do-refresh ( modified-sources modified-docs -- )
