diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor index 6816445508..5a64878aee 100755 --- a/basis/tools/deploy/shaker/shaker.factor +++ b/basis/tools/deploy/shaker/shaker.factor @@ -195,10 +195,12 @@ IN: tools.deploy.shaker 2drop ; : 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-dictionary? [ + "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 + ] when ; : strip-default-methods ( -- ) strip-debugger? [