Resolved merge.

[factor.git] / basis / unicode / case / case.factor

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 1ad39317469939c54b144961b84f3df21598c440..79db087220e6ced846787b88826c0dea72e7d5ad 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -59,7 +59,7 @@ SYMBOL: locale ! Just casing locale, or overall?
 
 : fix-sigma-end ( string -- string )
     [ "" ] [
-        dup peek CHAR: greek-small-letter-sigma =
+        dup last CHAR: greek-small-letter-sigma =
         [ 1 head* CHAR: greek-small-letter-final-sigma suffix ] when
     ] if-empty ; inline