--- a/Method.st	Wed Sep 06 18:52:30 2006 +0200
+++ b/Method.st	Wed Sep 06 18:59:51 2006 +0200
@@ -1507,7 +1507,7 @@
      Defined here to allow for browsers to deal with nonStandard pseudoMethods"
 
     |s privInfo moreInfo p i n cls currentChangeSet isInChangeSet mthdPackage
-     userPreferences shownSelector|
+     userPreferences shownSelector suppressPackage|
 
     moreInfo := ''.
     privInfo := ''.
@@ -1577,12 +1577,14 @@
     ].
 
     (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
-        mthdPackage ~= Project defaultProject package ifTrue:[
-            p := ' [ ' , (mthdPackage ? '???') allItalic , ' ] '.
+        suppressPackage := false.
+        mthdPackage = Project noProjectID ifTrue:[
+            mthdPackage := '+'.
+            "/ suppressPackage := true
+        ].
+        suppressPackage ifFalse:[
+            p := ' [' , (mthdPackage ? '?') allItalic , '] '.
             p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
-"/            isInChangeSet ifFalse:[
-"/                s := s asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
-"/            ].
             s := s , ' ' , p
         ].
     ].
@@ -1596,9 +1598,9 @@
     ].
     ^ s
 
-    "Modified: / 23.1.1998 / 13:15:15 / stefan"
-    "Created: / 5.2.2000 / 22:55:56 / cg"
-    "Modified: / 2.11.2001 / 09:53:16 / cg"
+    "Modified: / 23-01-1998 / 13:15:15 / stefan"
+    "Created: / 05-02-2000 / 22:55:56 / cg"
+    "Modified: / 06-09-2006 / 13:59:44 / cg"
 !
 
 selectorPrintStringInBrowserFor:selector
@@ -2836,7 +2838,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.295 2006-08-24 12:55:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.296 2006-09-06 16:59:51 cg Exp $'
 ! !
 
 Method initialize!