--- a/Breakpoint.st	Fri Aug 30 10:43:45 2019 +0200
+++ b/Breakpoint.st	Fri Aug 30 10:46:04 2019 +0200
@@ -207,7 +207,7 @@
                             ] ifFalse:[
                                 prevLine := '...'.
                             ].  
-                            prevLine := prevLine withColor:Color grey.
+                            prevLine := prevLine allGray.
                             message := 'Breakpoint encountered at line %1 in %2\near:\%4\%3'.
                         ].
                     ].
@@ -223,7 +223,7 @@
                             ] ifFalse:[
                                 nextLine := '...'.
                             ].    
-                            nextLine := nextLine withColor:Color grey.
+                            nextLine := nextLine allGray.
 
                             prevLine notNil ifTrue:[
                                 message := 'Breakpoint encountered at line %1 in %2\near:\%4\%3\%5'.