--- a/MessageTracer.st	Fri Feb 15 10:11:44 2019 +0100
+++ b/MessageTracer.st	Wed Feb 20 13:15:49 2019 +0100
@@ -913,33 +913,33 @@
     | analyzer map lines i breakpoint table |
 
     (ConfigurableFeatures includesFeature: #VMBreakpointSupport) ifFalse:[
-	self error: 'Breakpoint support not present'.
-	^nil.
+        self error: 'Breakpoint support not present'.
+        ^nil.
     ].
 
-    analyzer := BreakpointAnalyzer parseMethodSilent: method source in: method mclass.
+    analyzer := BreakpointAnalyzer parseMethodSilent:(method source) in:(method mclass).
     map := analyzer messageSendMap.
     lines := map keys asSortedCollection.
     i := lines indexForInserting: line.
     i > lines size ifTrue:[
-	^nil
+        ^nil
     ].
     breakpoint := Breakpoint new line: (lines at: i).
     breakpoint breaksToIgnore: (((map at: breakpoint line) size - 1) max: 0).
 
     table := method breakpointTable.
     table isNil ifTrue:[
-	"/old way:
-	"/table := Array with: (breakpoint line) with: breakpoint.
-
-	"/new way:
-	table := Array with: breakpoint.
+        "/old way:
+        "/table := Array with: (breakpoint line) with: breakpoint.
+
+        "/new way:
+        table := Array with: breakpoint.
     ] ifFalse:[
-	"/old way:
-	"/table := table, (Array with: (breakpoint line) with: breakpoint).
-
-	"/new way:
-	table := table copyWith: breakpoint
+        "/old way:
+        "/table := table, (Array with: (breakpoint line) with: breakpoint).
+
+        "/new way:
+        table := table copyWith: breakpoint
     ].
     method breakpointTable: table.
 
@@ -947,6 +947,7 @@
 
     "Created: / 16-04-2013 / 00:25:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 24-04-2013 / 19:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 20-02-2019 / 10:51:37 / Claus Gittinger"
 ! !
 
 !MessageTracer class methodsFor:'method counting'!