--- a/CompiledCode.st	Fri Aug 18 22:05:21 2000 +0200
+++ b/CompiledCode.st	Fri Aug 18 22:22:50 2000 +0200
@@ -457,6 +457,15 @@
 
 !
 
+breakPointIf:conditionBlock
+    "arrange for a breakpoint-debugger to be opened when this method
+     is invoked AND conditionBlock evaluates to true."
+
+    MessageTracer trapMethod:self if:conditionBlock
+
+    "Created: / 18.8.2000 / 22:09:59 / cg"
+!
+
 breakPointInProcess:aProcess
     "arrange for a breakpoint-debugger to be opened when this method
      is invoked from withn aProcess."
@@ -1565,6 +1574,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.79 2000-08-18 20:04:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.80 2000-08-18 20:22:50 cg Exp $'
 ! !
 CompiledCode initialize!