diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index e19fd2ba84..a08e482c3e 100644
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -14,7 +14,7 @@ SYMBOL: locale ! Just casing locale, or overall?
 : split-subseq ( string sep -- strings )
     [ dup ] swap '[ _ split1-slice swap ] produce nip ;
 
-: replace ( old new str -- newstr )
+: replace ( str old new -- newstr )
     [ split-subseq ] dip join ; inline
 
 : i-dot? ( locale -- ? )