--- a/Tools__BreakpointService.st	Thu Feb 23 17:38:29 2017 +0100
+++ b/Tools__BreakpointService.st	Fri Feb 24 11:42:03 2017 +0100
@@ -562,7 +562,10 @@
 
                 breakpoints := breakpoints species new.
                 newMethod breakpointsDo:[ :each | each method:newMethod. breakpoints add: each ].
-                self assert:(breakpoints isSortedBy:[:a :b |a position <= b position]).
+                "/ this assertion occasionally failed - and lead to wrong breakpoint handling in the compiler.
+                "/ for now, as a q&d hack, sort them to make sure.
+                "/ self assert:(breakpoints isSortedBy:[:a :b |a position <= b position]).
+                breakpoints sort:[:a :b |a position <= b position]. 
 
                 "/ must update breakpoints BEFORE the following, because it leads to a change
                 "/ notification, which may clear the breakpoints collection!!
@@ -580,7 +583,7 @@
 
     "Created: / 05-07-2011 / 21:33:13 / cg"
     "Modified: / 23-02-2015 / 14:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 20-11-2016 / 19:14:34 / cg"
+    "Modified: / 24-02-2017 / 11:23:16 / cg"
 ! !
 
 !BreakpointService methodsFor:'queries'!