--- a/WMethod.st	Fri Apr 11 17:17:43 1997 +0200
+++ b/WMethod.st	Fri Apr 11 17:30:55 1997 +0200
@@ -117,6 +117,15 @@
     "Created: 7.4.1997 / 17:25:40 / cg"
 !
 
+isTimed
+    "return true, if the receiver is a wrapped method for a time measurement.
+     Ask the messageTracer, since I dont know if its a break or trace"
+
+    ^ (MessageTracer isTiming:self)
+
+    "Created: 11.4.1997 / 17:06:14 / cg"
+!
+
 isTraced
     "return true, if the receiver is a wrapped method for a trace point.
      Ask the messageTracer, since I dont know if its a break or trace"
@@ -136,5 +145,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.15 1997-04-07 17:30:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.16 1997-04-11 15:30:55 cg Exp $'
 ! !

--- a/WrappedMethod.st	Fri Apr 11 17:17:43 1997 +0200
+++ b/WrappedMethod.st	Fri Apr 11 17:30:55 1997 +0200
@@ -117,6 +117,15 @@
     "Created: 7.4.1997 / 17:25:40 / cg"
 !
 
+isTimed
+    "return true, if the receiver is a wrapped method for a time measurement.
+     Ask the messageTracer, since I dont know if its a break or trace"
+
+    ^ (MessageTracer isTiming:self)
+
+    "Created: 11.4.1997 / 17:06:14 / cg"
+!
+
 isTraced
     "return true, if the receiver is a wrapped method for a trace point.
      Ask the messageTracer, since I dont know if its a break or trace"
@@ -136,5 +145,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.15 1997-04-07 17:30:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.16 1997-04-11 15:30:55 cg Exp $'
 ! !