--- a/NewLauncher.st	Fri Aug 19 10:41:51 2011 +0200
+++ b/NewLauncher.st	Fri Aug 19 12:10:14 2011 +0200
@@ -3789,6 +3789,7 @@
         (self findItem:newItem inMenuPanel:menuPanel) ~~ 0 ifTrue:[
             "item already exists - do nothing"
             Transcript show:'NewLauncher: menu item already present:'; showCR:newItem nameKey.
+thisContext printAllOn:Transcript.
             ^ self.
         ].
 
@@ -3893,6 +3894,7 @@
         (self findItem:newItem inMenuPanel:menuPanel) ~~ 0 ifTrue:[
             "item already exists - do nothing"
             Transcript show:'NewLauncher: menu item already present:'; showCR:newItem nameKey.
+thisContext printAllOn:Transcript.
             ^ self.
         ].
 
@@ -4020,7 +4022,7 @@
         space:true.
     "
 
-    "Modified: / 09-08-2011 / 22:39:59 / cg"
+    "Modified: / 19-08-2011 / 12:09:28 / cg"
 !
 
 addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
@@ -4801,7 +4803,7 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.412 2011-08-09 20:42:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.413 2011-08-19 10:10:14 cg Exp $'
 !
 
 version_SVN