Minor fix to make sure strings are produced.

diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index 944c860c0cabf6aa78e55239bf8ab73d59d53234..c26e37c237d2ec786b3a4ab22b516df1522a69b3 100644 (file)
--- a/basis/ui/gestures/gestures.factor
+++ b/basis/ui/gestures/gestures.factor
@@ -326,10 +326,10 @@ M: macosx modifiers>string
             { S+ [ "\u0021e7" ] }
             { C+ [ "\u002303" ] }
         } case
-    ] map concat ;
+    ] map "" concat-as ;
 
 M: object modifiers>string
-    [ name>> ] map concat ;
+    [ name>> ] map "" concat-as ;
 
 HOOK: keysym>string os ( keysym -- string )
 

diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor
index 843f13361bd0b0bb140cc09bae526f6f71689423..40bb5c54ec6c0e65336b96fb75eda20da2ffeba5 100644 (file)
--- a/basis/xml/writer/writer.factor
+++ b/basis/xml/writer/writer.factor
@@ -19,7 +19,7 @@ SYMBOL: indentation
 \r
 : indent-string ( -- string )\r
     xml-pprint? get\r
-    [ indentation get indenter get <repetition> concat ]\r
+    [ indentation get indenter get <repetition> "" concat-as ]\r
     [ "" ] if ;\r
 \r
 : ?indent ( -- )\r