--- a/BreakpointAnalyzer.st	Wed Feb 20 10:59:35 2019 +0100
+++ b/BreakpointAnalyzer.st	Wed Feb 20 10:59:50 2019 +0100
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 Parser variableSubclass:#BreakpointAnalyzer
 	instanceVariableNames:'messageSendMap'
 	classVariableNames:''
@@ -20,13 +24,14 @@
     "invoked whenever a message send node has been generated;
      gives subclasses a chance to rewrite (instrument) it"
 
-    (messageSendMap at: aMessageNode line ifAbsentPut:[Bag new])
-        add: aMessageNode selector.
+    (messageSendMap at:(aMessageNode line) ifAbsentPut:[Bag new])
+        add:(aMessageNode selector).
 
     ^ aMessageNode
 
     "Created: / 15-04-2013 / 15:32:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 16-04-2013 / 23:07:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 20-02-2019 / 10:49:33 / Claus Gittinger"
 ! !
 
 !BreakpointAnalyzer methodsFor:'initialization'!
@@ -106,10 +111,10 @@
 !BreakpointAnalyzer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointAnalyzer.st,v 1.3 2013-04-24 20:26:44 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointAnalyzer.st,v 1.3 2013-04-24 20:26:44 vrany Exp $'
+    ^ '$Header$'
 ! !