--- a/Method.st	Mon Aug 09 16:46:44 1999 +0200
+++ b/Method.st	Tue Aug 10 19:30:58 1999 +0200
@@ -1611,9 +1611,15 @@
         moreInfo := privInfo , ' ' , moreInfo
     ].
 
-    moreInfo size == 0 ifTrue:[^ selector].
+    s := selector.
+    self package ~= self containingClass package ifTrue:[
+        s := s , ' { ' , self package , ' }'
+    ].
+
+    moreInfo size == 0 ifTrue:[^ s].
 
     s := selector , moreInfo.
+
     self isInvalid ifTrue:[
         s := s asText emphasizeAllWith:#color->Color red.
     ].
@@ -2410,6 +2416,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.172 1999-08-04 14:08:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.173 1999-08-10 17:30:58 cg Exp $'
 ! !
 Method initialize!