--- a/BreakpointDescription.st	Sat Aug 08 22:49:53 2020 +0100
+++ b/BreakpointDescription.st	Tue Aug 25 12:20:06 2020 +0100
@@ -72,8 +72,10 @@
     ^ condition
 !
 
-condition:something
-    condition := something.
+condition:aBlockCheckingItsContextArg
+    condition := aBlockCheckingItsContextArg.
+
+    "Modified (format): / 20-02-2019 / 10:58:54 / Claus Gittinger"
 ! !
 
 !BreakpointDescription methodsFor:'initialization'!
@@ -81,11 +83,13 @@
 initialize
     "Invoked when a new instance is created."
 
+    "/ state is one of #hidden, #enabled, #tracing, #deleted, #disabled
     state := #enabled
 
     "/ super initialize.   -- commented since inherited method does nothing
 
     "Modified: / 17-06-2011 / 13:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 20-02-2019 / 10:56:18 / Claus Gittinger"
 ! !
 
 !BreakpointDescription methodsFor:'support'!
@@ -109,18 +113,20 @@
 shouldBreakIn: aContext
     state ~~ #enabled ifTrue:[^false].
 
-    ^ condition isNil or:[condition value: thisContext sender]
+    ^ condition isNil or:[condition value:aContext]
 
     "Created: / 11-07-2011 / 18:16:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 27-01-2012 / 13:42:28 / cg"
+    "Modified: / 20-02-2019 / 10:57:07 / Claus Gittinger"
 !
 
 shouldTraceIn: aContext
     state ~~ #tracing ifTrue:[^false].
 
-    ^ condition isNil or:[condition value: thisContext sender]
+    ^ condition isNil or:[condition value:aContext]
 
     "Created: / 27-01-2012 / 13:41:58 / cg"
+    "Modified: / 20-02-2019 / 10:57:14 / Claus Gittinger"
 !
 
 toggle