core-foundation.strings: using map!.

diff --git a/basis/core-foundation/strings/strings.factor b/basis/core-foundation/strings/strings.factor
index 65da036049e29364e49a2d5dcabf0259e0d68908..3a5d73fee35cd90f84c7fe436606c0cd29875ea8 100644 (file)
--- a/basis/core-foundation/strings/strings.factor
+++ b/basis/core-foundation/strings/strings.factor
@@ -69,7 +69,7 @@ FUNCTION: CFStringRef CFCopyTypeIDDescription ( CFTypeID type_id ) ;
     [
         dup { [ 0x10ffff > ] [ 0xd800 0xdfff between? ] } 1||
         [ drop 0xfffd ] when
-    ] map utf8 encode ;
+    ] map! utf8 encode ;
 
 : <CFString> ( string -- alien )
     [ f ] dip