--- a/CompiledCode.st	Tue Mar 21 12:07:58 2000 +0100
+++ b/CompiledCode.st	Tue Mar 21 12:14:40 2000 +0100
@@ -199,6 +199,22 @@
     "Modified: 19.6.1997 / 16:31:53 / cg"
 !
 
+methodClass
+    "return the class I am defined in"
+
+    ^ self mclass.
+
+    "Created: 19.6.1997 / 16:32:15 / cg"
+!
+
+sourceString
+    "return the code objects source code, nil if none is available"
+
+    ^ self source.
+
+    "Created: 19.6.1997 / 16:32:15 / cg"
+!
+
 withAllBlockMethodsDo:aBlock
     aBlock value:self
 
@@ -451,6 +467,14 @@
 
 !CompiledCode methodsFor:'debugging'!
 
+breakPointAfter:countInvocations
+    "arrange for a breakpoint-debugger to be opened when this method
+     was invoked countInvocations times."
+
+    MessageTracer trapMethod:self after:countInvocations.
+
+!
+
 breakPointInProcess:aProcess
     "arrange for a breakpoint-debugger to be opened when this method
      is invoked from withn aProcess."
@@ -1531,6 +1555,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.73 2000-01-17 11:24:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.74 2000-03-21 11:14:40 cg Exp $'
 ! !
 CompiledCode initialize!