--- a/NewLauncher.st	Wed Jan 22 17:24:53 2014 +0100
+++ b/NewLauncher.st	Thu Jan 23 14:00:42 2014 +0100
@@ -981,10 +981,8 @@
 addMenuItem:newItem from:anApplicationWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space
     |positionSpecOrNil itemNameOrNil before launcherApp|
 
-    (Transcript notNil
-    and:[ Transcript isView
-    and:[ (launcherApp := Transcript application) notNil
-    and:[ launcherApp isKindOf:self]]]) ifTrue:[
+    (Transcript isView
+     and:[(launcherApp := Transcript application) isKindOf:self]) ifTrue:[
         "/ add to instance
         launcherApp addMenuItem:newItem from:anApplicationWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space.
         ^ self
@@ -999,7 +997,7 @@
     ].
     before := (positionSpecOrNil == #first) or:[positionSpecOrNil == #before].
 
-    (where isNil or: [where = 'toolbar']) ifTrue:[
+    (where isNil or: [where = #toolbar]) ifTrue:[
         UserAddedToolBarItems isNil ifTrue: [UserAddedToolBarItems := Dictionary new].
         (UserAddedToolBarItems contains:[:info | info item nameKey = newItem nameKey])
         ifTrue:[
@@ -1018,7 +1016,7 @@
                                             yourself)
         ]
     ].
-    (where isNil or:[where startsWith:'menu']) ifTrue:[
+    (where isNil or:[where startsWith:#menu]) ifTrue:[
         UserAddedMenuItems isNil ifTrue: [UserAddedMenuItems := Dictionary new].
         (UserAddedMenuItems contains:[:info | info item nameKey = newItem nameKey])
         ifTrue:[
@@ -5078,14 +5076,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.483 2013-12-06 18:32:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.484 2014-01-23 13:00:42 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.483 2013-12-06 18:32:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.484 2014-01-23 13:00:42 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.483 2013-12-06 18:32:13 cg Exp $'
+    ^ '$Id: NewLauncher.st,v 1.484 2014-01-23 13:00:42 stefan Exp $'
 ! !