diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index fe0ee52ff4..13e8eb949f 100755
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@@ -223,4 +223,4 @@ PRIVATE>
     [ swap nth ] with map ;
 
 : replace ( str oldseq newseq -- str' )
-    H{ } 2seq>assoc [ dupd at* [ nip ] [ drop ] if ] curry map ;
+    H{ } 2seq>assoc substitute ;