--- a/CompiledCode.st	Tue Aug 15 16:51:50 2000 +0200
+++ b/CompiledCode.st	Wed Aug 16 14:04:35 2000 +0200
@@ -477,7 +477,7 @@
 !
 
 isCounted
-    "obsolete - replaced by isCountinMemoryUsage"
+    "obsolete - replaced by isCountingMemoryUsage"
 
     ^ MessageTracer notNil
       and:[MessageTracer isCountingMemoryUsage:self]
@@ -507,6 +507,13 @@
     "Created: / 30.1.1999 / 14:49:26 / cg"
 !
 
+isTiming
+    "return true, if timiing statistics are being gathered on this method."
+
+    ^ MessageTracer notNil
+      and:[MessageTracer isTiming:self]
+!
+
 resetCountingStatistics
     "reset count statistics of the receiver"
 
@@ -1569,6 +1576,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.76 2000-08-15 14:34:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.77 2000-08-16 12:04:35 cg Exp $'
 ! !
 CompiledCode initialize!