diff --git a/core/generic/standard/engines/tag/tag.factor b/core/generic/standard/engines/tag/tag.factor
index c65726260c..87e2f1c9b1 100644
--- a/core/generic/standard/engines/tag/tag.factor
+++ b/core/generic/standard/engines/tag/tag.factor
@@ -27,7 +27,7 @@ M: lo-tag-dispatch-engine engine>quot
     [ >r lo-tag-number r> ] assoc-map
     [
         picker % [ tag ] % [
-            ! >alist sort-keys reverse
+            >alist sort-keys reverse
             linear-dispatch-quot
         ] [
             num-tags get direct-dispatch-quot