--- a/ProfileTree.st	Sat May 18 19:07:36 1996 +0200
+++ b/ProfileTree.st	Sat May 18 19:14:47 1996 +0200
@@ -142,6 +142,8 @@
 !ProfileTree methodsFor:'adding info'!
 
 addChain:aCallChain
+    "{ Pragma: +optSpeed }"
+
     "merge a chain into the receviers tree"
 
     |node found subTree chain called|
@@ -204,6 +206,8 @@
 !
 
 incrementLeafTally
+    "{ Pragma: +optSpeed }"
+
     "count as leaf"
 
     leafTally isNil ifTrue:[
@@ -216,6 +220,8 @@
 !
 
 incrementTotalTally
+    "{ Pragma: +optSpeed }"
+
     "count"
 
     totalTally isNil ifTrue:[
@@ -366,5 +372,5 @@
 !ProfileTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.12 1996-05-18 17:05:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.13 1996-05-18 17:14:47 cg Exp $'
 ! !