--- a/AbstractLauncherApplication.st	Thu Feb 04 10:55:37 2016 +0100
+++ b/AbstractLauncherApplication.st	Tue Feb 09 15:20:57 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.