--- a/Tools__TestRunner2.st	Fri Aug 05 15:15:19 2011 +0200
+++ b/Tools__TestRunner2.st	Fri Aug 05 15:53:35 2011 +0200
@@ -112,9 +112,11 @@
 !
 
 installInLauncher
+    "Install in Tools menu"
+
     |menuItem|
 
-    "Install in Tools menu"
+    NewLauncher isNil ifTrue:[^ self].
 
     menuItem := (MenuItem label:'SUnit Test Runner (enhanced)')
                 nameKey:'TestRunner2';
@@ -1681,7 +1683,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__TestRunner2.st,v 1.13 2011-08-04 18:31:15 cg Exp $'
+    ^'$Id: Tools__TestRunner2.st,v 1.14 2011-08-05 13:53:35 stefan Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2180,7 +2182,7 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.13 2011-08-04 18:31:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.14 2011-08-05 13:53:35 stefan Exp $'
 !
 
 version_SVN