--- a/Launcher.st	Wed Dec 06 13:38:01 1995 +0100
+++ b/Launcher.st	Wed Dec 06 13:39:56 1995 +0100
@@ -328,9 +328,9 @@
 		allObjects := ObjectFileLoader loadedObjectHandles.
 		methodObjects := (allObjects select:[:h | h isMethodHandle]) asArray.
 		methodNames := methodObjects collect:[:mH | mH method isNil ifTrue:[
-								'compiled method - removed' 
+								'compiled method - removed' , ' (in ' , mH pathName , ')'
 							    ] ifFalse:[
-								'compiled method ' , mH method whoString
+								'compiled method ' , mH method whoString , ' (in ' , mH pathName , ')'
 							    ].
 						     ].
 		l := l , methodNames.
@@ -1920,5 +1920,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.60 1995-12-05 19:13:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.61 1995-12-06 12:39:56 cg Exp $'
 ! !