--- a/BreakpointDescription.st	Sun Feb 17 12:54:52 2019 +0100
+++ b/BreakpointDescription.st	Wed Feb 20 10:59:35 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libcomp' }"
 
 "{ NameSpace: Smalltalk }"
@@ -47,8 +49,10 @@
     ^ condition
 !
 
-condition:something
-    condition := something.
+condition:aBlockCheckingItsContextArg
+    condition := aBlockCheckingItsContextArg.
+
+    "Modified (format): / 20-02-2019 / 10:58:54 / Claus Gittinger"
 ! !
 
 !BreakpointDescription methodsFor:'initialization'!
@@ -56,11 +60,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'!
@@ -84,18 +90,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