diff --git a/core/generic/standard/engines/tuple/tuple.factor b/core/generic/standard/engines/tuple/tuple.factor
index 775428e183..7639d1d499 100644
--- a/core/generic/standard/engines/tuple/tuple.factor
+++ b/core/generic/standard/engines/tuple/tuple.factor
@@ -30,14 +30,7 @@ TUPLE: tuple-dispatch-engine echelons ;
 
 : <tuple-dispatch-engine> ( methods -- engine )
     echelon-sort
-    [
-        ! over zero? [
-        !     dup assoc-empty?
-        !     [ drop f ] [ values first ] if
-        ! ] [
-            dupd <echelon-dispatch-engine>
-        ! ] if
-    ] assoc-map ! [ nip ] assoc-subset
+    [ dupd <echelon-dispatch-engine> ] assoc-map
     \ tuple-dispatch-engine boa ;
 
 : convert-tuple-methods ( assoc -- assoc' )