--- a/MessageTally.st	Sat May 18 18:51:30 1996 +0200
+++ b/MessageTally.st	Sat May 18 19:05:49 1996 +0200
@@ -55,7 +55,8 @@
         Claus Gittinger
 
     [see also:]
-        CallChain
+        CallChain ProfileTree
+        MessageTracer
 "
 !
 
@@ -262,13 +263,14 @@
                 home isNil ifTrue:[
                     info receiver:UndefinedObject
                          selector:'optimized'
-                            class:UndefinedObject.
+                            class:UndefinedObject
+                          isBlock:true.
                 ] ifFalse:[
                     info receiver:home receiver class
                          selector:home selector
-                            class:con methodClass.
+                            class:con methodClass
+                          isBlock:true.
                 ].
-                info isBlock:true.
             ] ifFalse:[
                 info receiver:con receiver class
                      selector:con selector
@@ -292,7 +294,7 @@
 
     tree addChain:chain
 
-    "Modified: 18.5.1996 / 18:48:45 / cg"
+    "Modified: 18.5.1996 / 18:53:31 / cg"
 ! !
 
 !MessageTally methodsFor:'setup'!
@@ -336,5 +338,6 @@
 
 !MessageTally class methodsFor:'documentation'!
 
-les/CVS/stx/libbasic3/MsgTally.st,v 1.21 1996/05/18 16:35:03 cg Exp $'
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.23 1996-05-18 17:05:41 cg Exp $'
 ! !