Minor fix to make sure strings are produced.

[factor.git] / basis / ui / gestures / gestures.factor

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 )