From 987ecea44157b07b77ad8490ba601ed80465d773 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 6 Apr 2013 18:50:26 -0700
Subject: [PATCH] Minor fix to make sure strings are produced.

---
 basis/ui/gestures/gestures.factor | 4 ++--
 basis/xml/writer/writer.factor    | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index 944c860c0c..c26e37c237 100644
--- 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 843f13361b..40bb5c54ec 100644
--- a/basis/xml/writer/writer.factor
+++ b/basis/xml/writer/writer.factor
@@ -19,7 +19,7 @@ SYMBOL: indentation
 
 : indent-string ( -- string )
     xml-pprint? get
-    [ indentation get indenter get <repetition> concat ]
+    [ indentation get indenter get <repetition> "" concat-as ]
     [ "" ] if ;
 
 : ?indent ( -- )