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

    [
        V{ } clone blacklist set
        [
            [
                [ require ]
                [
                    over vocab-name blacklist get push
                    error-continuation get 3array ,
                ] recover
            ] each
        ] { } make
    ] with-compiler-errors ;

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

    vocab-name (load-vocab) ;

TUPLE: blacklisted-vocab name ;

: blacklisted-vocab ( name -- * )
    \ blacklisted-vocab construct-boa throw ;

