     strip-word-names? [ dup strip-word-names strip-stack-traces ] when
     2drop ;
 
+: strip-memoized ( -- )
+    "Clearing memoized word caches" show
+    [ memoized? ] instances [ reset-memoized ] each ;
+
 : compiler-classes ( -- seq )
     { "compiler" "stack-checker" }
     [ child-vocabs [ words ] map concat [ class? ] filter ]

definitions generic generic.standard generic.single
tools.deploy.config combinators combinators.private classes
vocabs.loader.private classes.builtin slots.private grouping
command-line io.pathnames namespaces.private ;
QUALIFIED: bootstrap.stage2
QUALIFIED: classes.private
QUALIFIED: compiler.crossref

    compress-objects
    compress-quotations
    strip-words
    strip-memoized
    clear-megamorphic-caches ;

: die-with ( error original-error -- * )
