diff --git a/extra/sorting/extras/extras.factor b/extra/sorting/extras/extras.factor
index 6f0ef81104..2c329fb0f9 100644
--- a/extra/sorting/extras/extras.factor
+++ b/extra/sorting/extras/extras.factor
@@ -4,4 +4,4 @@ IN: sorting.extras
 : argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq )
     [ dup length iota zip ] dip
     [ [ first-unsafe ] bi@ ] prepose
-    sort [ 1 swap nth-unsafe ] map! ; inline
+    sort [ second-unsafe ] map! ; inline