--- a/Launcher.st	Fri Jul 12 23:43:00 1996 +0200
+++ b/Launcher.st	Sat Jul 13 01:01:43 1996 +0200
@@ -655,10 +655,12 @@
                 idx := list1 selectionIndex.
                 info := allModules at:idx ifAbsent:nil.
 
+                list1 selectionIndex:nil.
+
                 info isNil ifTrue:[
                     "/ selected a method
                     idx := idx - allModules size.
-                    pathName := (methodObjects at:idx) pathName.
+                    pathName := (handles at:idx) pathName.
 
                 ] ifFalse:[
                     "/ selected a package
@@ -687,7 +689,7 @@
     box destroy.
 
     "Modified: 17.9.1995 / 16:47:50 / claus"
-    "Modified: 12.7.1996 / 23:32:21 / cg"
+    "Modified: 13.7.1996 / 00:32:05 / cg"
 !
 
 snapshot
@@ -3295,5 +3297,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.168 1996-07-12 21:43:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.169 1996-07-12 23:01:43 cg Exp $'
 ! !