diff --git a/basis/tools/coverage/coverage.factor b/basis/tools/coverage/coverage.factor
index 1d3dadd972..610c0a1d66 100644
--- a/basis/tools/coverage/coverage.factor
+++ b/basis/tools/coverage/coverage.factor
@@ -127,6 +127,12 @@ PRIVATE>
         ] call
     ] bi ;
 
+: test-coverage-recursively ( vocab -- assoc )
+    child-vocabs [
+        dup test-coverage
+    ] { } map>assoc ;
+
+
 : %coverage ( string -- x )
     [ test-coverage values concat length ]
     [ count-callables ] bi [ swap - ] keep /f ; inline