--- a/DebugView.st	Tue Jun 05 19:20:28 2018 +0200
+++ b/DebugView.st	Tue Jun 05 19:20:58 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -409,7 +407,7 @@
         type == #halt ifTrue:[
             ign := IgnoredHalt new method:methodOrNil lineNumber:lineNrOfHaltOrNil.
         ] ifFalse:[
-            ign := IgnoredHalt new breakpointWithParameter:parameterOrNil.
+            ign := IgnoredBreakpoint new parameter:parameterOrNil.
         ].
 
         (countOrNil notNil and:[countOrNil > 0]) ifTrue:[
@@ -435,6 +433,7 @@
     Smalltalk changed:#ignoredHalts.
 
     "Created: / 06-03-2012 / 12:37:58 / cg"
+    "Modified: / 05-06-2018 / 18:34:17 / Claus Gittinger"
 !
 
 isBreakpointToBeIgnoredForParameter:parameter context:aContext modifyEntryCount:modifyCount
@@ -7754,7 +7753,7 @@
                 ]
             ].
 
-            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
             RememberedCallChain notNil ifTrue:[
                 (RememberedCallChain includesIdentical:aContext) ifTrue:[
                     s := s withColor:#red.
@@ -9854,7 +9853,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1 » %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.
@@ -9988,6 +9987,14 @@
     "Modified: / 27-01-2012 / 11:36:01 / cg"
 ! !
 
+!DebugView::IgnoredHalt class methodsFor:'instance creation'!
+
+method:methodArg lineNumber:lineNumberArg
+    ^ self new method:methodArg lineNumber:lineNumberArg
+
+    "Created: / 05-06-2018 / 18:33:22 / Claus Gittinger"
+! !
+
 !DebugView::IgnoredHalt methodsFor:'accessing'!
 
 method
@@ -10109,6 +10116,14 @@
     ^ self isHaltIgnored  "/ unconditionally
 ! !
 
+!DebugView::IgnoredBreakpoint class methodsFor:'instance creation'!
+
+parameter:aParameter
+    ^ self new parameter:aParameter
+
+    "Created: / 05-06-2018 / 18:34:06 / Claus Gittinger"
+! !
+
 !DebugView::IgnoredBreakpoint methodsFor:'accessing'!
 
 parameter