diff --git a/core/classes/algebra/algebra-tests.factor b/core/classes/algebra/algebra-tests.factor
index 05c254f225..78da6ee9b3 100755
--- a/core/classes/algebra/algebra-tests.factor
+++ b/core/classes/algebra/algebra-tests.factor
@@ -3,7 +3,8 @@ kernel math namespaces parser prettyprint sequences strings
 tools.test vectors words quotations classes classes.algebra
 classes.private classes.union classes.mixin classes.predicate
 vectors definitions source-files compiler.units growable
-random inference effects kernel.private sbufs math.order ;
+random inference effects kernel.private sbufs math.order
+classes.tuple ;
 IN: classes.algebra.tests
 
 \ class< must-infer
diff --git a/core/classes/builtin/builtin.factor b/core/classes/builtin/builtin.factor
index f349d0a126..b0e4754682 100644
--- a/core/classes/builtin/builtin.factor
+++ b/core/classes/builtin/builtin.factor
@@ -43,8 +43,7 @@ M: builtin-class (classes-intersect?)
     } cond ;
 
 M: anonymous-intersection (flatten-class)
-    participants>>
-    participants [ flatten-builtin-class ] map
+    participants>> [ flatten-builtin-class ] map
     dup empty? [
         drop builtins get sift [ (flatten-class) ] each
     ] [