--- a/Launcher.st	Thu Dec 07 11:16:43 1995 +0100
+++ b/Launcher.st	Thu Dec 07 11:18:13 1995 +0100
@@ -380,9 +380,13 @@
 			    cls isNil ifTrue:[
 				listEntry colAt:2 put:'(class removed)'.
 			    ] ifFalse:[
-				rev := cls revision.
+				rev := cls binaryRevision.
 				rev notNil ifTrue:[
-				    listEntry colAt:2 put:'(rev' , rev , ')'
+				    entry :='(bin: ' , rev.
+				    cls revision ~= rev ifTrue:[
+					entry := entry , ' / src: ' , cls revision    
+				    ].
+				    listEntry colAt:2 put:entry , ')'
 				].    
 			    ].
 			    listEntry
@@ -466,6 +470,7 @@
     box destroy.
 
     "Modified: 17.9.1995 / 16:47:50 / claus"
+    "Modified: 7.12.1995 / 11:04:22 / cg"
 !
 
 snapshot
@@ -1920,5 +1925,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.61 1995-12-06 12:39:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.62 1995-12-07 10:18:13 cg Exp $'
 ! !