--- a/AbstractLauncherApplication.st	Sat Feb 06 07:47:11 2016 +0000
+++ b/AbstractLauncherApplication.st	Wed Feb 10 06:51:05 2016 +0100
@@ -309,7 +309,7 @@
                 newEntry := eachEntry
             ] ifFalse:[
                 newEntry := eachEntry copy.
-                (iconCodeOrSelector startsWith:'[') ifTrue:[
+                (iconCodeOrSelector startsWith:$[) ifTrue:[
                     iconCode := iconCodeOrSelector copyFrom:(iconCodeOrSelector indexOf:$[)+1 to:(iconCodeOrSelector indexOf:$])-1.
                     iconCode := '^ [:each | ' , (iconCode copyReplaceString:'%' withString:'each') ,']'.
                     iconBlock := Parser evaluate:iconCode.