diff --git a/core/classes/classes-tests.factor b/core/classes/classes-tests.factor
index d7fba97977..1c1db09cf4 100644
--- a/core/classes/classes-tests.factor
+++ b/core/classes/classes-tests.factor
@@ -110,6 +110,12 @@ USE: multiline
     "class-intersect-no-method-c" parse-stream drop
 ] unit-test
 
+! Forget the above crap
+[
+    { "classes.test.a" "classes.test.b" "classes.test.c" "classes.test.d" }
+    [ forget-vocab ] each
+] with-compilation-unit
+
 TUPLE: forgotten-predicate-test ;
 
 [ ] [ [ \ forgotten-predicate-test forget ] with-compilation-unit ] unit-test
diff --git a/core/words/words-tests.factor b/core/words/words-tests.factor
index 0ecf7b65f0..c3dacbaf14 100755
--- a/core/words/words-tests.factor
+++ b/core/words/words-tests.factor
@@ -122,6 +122,6 @@ DEFER: x
 [
     all-words [
         "compiled-uses" word-prop
-        keys [ "forgotten" word-prop ] any?
-    ] filter
+        keys [ "forgotten" word-prop ] filter
+    ] map harvest
 ] unit-test