Fix string>gesture for gestures involving SPACE

diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index c53c708bcffde81bed8db7b5d1e65ea3ad70305e..744cb1dc50e0df85ed604b636d134c8f2a662ea1 100644 (file)
--- a/basis/ui/gestures/gestures.factor
+++ b/basis/ui/gestures/gestures.factor
@@ -309,7 +309,7 @@ M: object modifiers>string
 M: key-down gesture>string
     [ mods>> ] [ sym>> ] bi
     {
-        { [ dup { [ length 1 = ] [ first Letter? ] } 1&& ] [ [ S+ prefix ] dip ] }
+        { [ dup { [ length 1 = ] [ first LETTER? ] } 1&& ] [ [ S+ prefix ] dip ] }
         { [ dup " " = ] [ drop "SPACE" ] }
         [ >upper ]
     } cond