--- a/WrappedMethod.st	Fri Apr 04 10:51:11 1997 +0200
+++ b/WrappedMethod.st	Mon Apr 07 19:30:03 1997 +0200
@@ -108,6 +108,24 @@
 
 !WrappedMethod methodsFor:'queries'!
 
+isBreakpointed
+    "return true, if the receiver is a wrapped method for a breakpoint.
+     Ask the messageTracer, since I dont know if its a break or trace"
+
+    ^ (MessageTracer isTrapped:self)
+
+    "Created: 7.4.1997 / 17:25:40 / 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"
+
+    ^ (MessageTracer isTrapped:self) not
+
+    "Created: 7.4.1997 / 17:25:54 / cg"
+!
+
 isWrapped
     "return true, if the receiver is a wrapped method.
      True is returned here, since the receiver is always a wrapped one"
@@ -118,5 +136,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.14 1997-02-11 19:58:21 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.15 1997-04-07 17:30:03 cg Exp $'
 ! !