--- a/MessageTracer.st	Thu Jan 02 18:15:51 1997 +0100
+++ b/MessageTracer.st	Sat Jan 04 17:14:42 1997 +0100
@@ -1306,6 +1306,21 @@
 
 !MessageTracer class methodsFor:'object breakpointing'!
 
+objectHasWraps:anObject
+    "return true, if anObject has any wraps"
+
+    ^ anObject class category == #'* trapping *'
+!
+
+realClassOf:anObject
+    "return anObjects real class"
+
+    (anObject class category == #'* trapping *') ifFalse:[
+        ^ anObject class
+    ].
+    ^ anObject class superclass
+!
+
 trap:anObject selector:aSelector
     "arrange for the debugger to be entered when a message with aSelector is 
      sent to anObject. Use untrap to remove this trap.
@@ -1425,6 +1440,15 @@
 
     "Modified: 5.6.1996 / 13:56:08 / stefan"
     "Modified: 10.9.1996 / 20:06:14 / cg"
+!
+
+wrappedSelectorsOf:anObject
+    "return the set of wrapped selectors (if any)"
+
+    (anObject class category == #'* trapping *') ifFalse:[
+        ^ #()
+    ].
+    ^ anObject class selectors
 ! !
 
 !MessageTracer class methodsFor:'object tracing'!
@@ -1906,6 +1930,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.48 1996-11-01 16:52:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.49 1997-01-04 16:14:42 ca Exp $'
 ! !
 MessageTracer initialize!