--- a/Tools__NewSystemBrowser.st	Thu Jul 26 20:43:29 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jul 26 20:54:28 2012 +0200
@@ -30431,7 +30431,22 @@
 !
 
 launchSelectedApplication
-    self startApplication:(self theSingleSelectedClass).
+    |cls mthd|
+
+    cls := self theSingleSelectedClass.
+    cls isNil ifTrue:[
+        mthd := self theSingleSelectedMethod.
+        mthd notNil ifTrue:[
+            cls := mthd mclass
+        ]
+    ].
+    cls isNil ifTrue:[
+        Dialog warn:'Please select a class or method.'.
+        ^ self.
+    ].
+    self startApplication:cls.
+
+    "Modified: / 26-07-2012 / 20:12:18 / cg"
 !
 
 moveClasses:classes toCategory:newCategory
@@ -57633,11 +57648,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1761 2012-07-26 12:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1762 2012-07-26 18:54:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1761 2012-07-26 12:44:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1762 2012-07-26 18:54:28 cg Exp $'
 !
 
 version_SVN