--- a/Method.st	Mon Jun 17 17:18:40 1996 +0200
+++ b/Method.st	Mon Jun 17 17:22:34 1996 +0200
@@ -1537,7 +1537,7 @@
     "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|
+    |s moreInfo p em i|
 
     moreInfo := ''.
 
@@ -1554,7 +1554,18 @@
                      '    (called ' , (MessageTracer executionCountOfMethod:self) printString , ' times)'.
             ]
         ] ifFalse:[
-            moreInfo := ' !!'
+            (MessageTracer isTiming:self) ifTrue:[
+                i := MessageTracer executionTimesOfMethod:self.
+                i notNil ifTrue:[
+                    moreInfo := moreInfo , 
+                                '    (avg: ' , (i at:#avgTime) printString,
+                                ' min: ' , (i at:#minTime) printString , 
+                                ' max: ' , (i at:#maxTime) printString ,
+                                ' cnt: ' , (i at:#count) printString , ')'
+                ].
+            ] ifFalse:[
+                moreInfo := ' !!'
+            ]
         ]
     ].
 
@@ -1579,7 +1590,7 @@
     ^ s
 
     "Created: 16.4.1996 / 20:11:12 / cg"
-    "Modified: 22.5.1996 / 16:43:25 / cg"
+    "Modified: 17.6.1996 / 17:16:21 / cg"
 !
 
 whoString
@@ -2114,6 +2125,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.89 1996-05-22 14:43:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.90 1996-06-17 15:22:34 cg Exp $'
 ! !
 Method initialize!