--- a/Method.st	Tue Oct 22 19:55:10 1996 +0200
+++ b/Method.st	Tue Oct 22 21:25:28 1996 +0200
@@ -1544,13 +1544,15 @@
     "return a printString to represent myself to the user in a browser.
      Defined here to allow for browsers to deal with nonStandard pseudoMethods"
 
-    |s moreInfo p em i|
+    |s privInfo moreInfo p em i|
 
     moreInfo := ''.
+    privInfo := ''.
 
     (p := self privacy) ~~ #public ifTrue:[
-        moreInfo := Text string:'    (* ' , p , ' *)' emphasis:#italic.
+        privInfo := Text string:'    (* ' , p , ' *)' emphasis:#italic.
     ].
+
     self isWrapped ifTrue:[
         (MessageTracer isCounting:self) ifTrue:[
             (MessageTracer isCountingMemoryUsage:self) ifTrue:[
@@ -1589,6 +1591,10 @@
         ]
     ].
 
+    privInfo size ~~ 0 ifTrue:[
+        moreInfo := privInfo , ' ' , moreInfo
+    ].
+
     moreInfo size == 0 ifTrue:[^ selector].
     s := selector , moreInfo.
     em notNil ifTrue:[
@@ -1597,7 +1603,7 @@
     ^ s
 
     "Created: 16.4.1996 / 20:11:12 / cg"
-    "Modified: 17.6.1996 / 17:16:21 / cg"
+    "Modified: 22.10.1996 / 19:48:07 / cg"
 !
 
 whoString
@@ -2115,6 +2121,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.100 1996-10-18 12:33:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.101 1996-10-22 19:25:28 cg Exp $'
 ! !
 Method initialize!