--- a/Tools__BreakpointService.st	Wed Jul 06 16:08:38 2011 +0200
+++ b/Tools__BreakpointService.st	Wed Jul 06 16:11:27 2011 +0200
@@ -154,19 +154,20 @@
             "/ prepare to get reachable bpts
             breakpoints do:[:bp | bp isReached:false].
 
-            ByteCodeCompilerWithBreakpointSupport new
-                breakpoints:breakpoints;
+            Class withoutUpdatingChangesDo:[
+                ByteCodeCompilerWithBreakpointSupport new
+                    breakpoints:breakpoints;
 
-                compile:method source
-                forClass:method mclass 
-                inCategory:method category 
-                notifying:nil
-                install:true 
-                skipIfSame:false 
-                silent:true 
-                foldConstants:true
-                ifFail:[ self halt ].
-
+                    compile:method source
+                    forClass:method mclass 
+                    inCategory:method category 
+                    notifying:nil
+                    install:true 
+                    skipIfSame:false 
+                    silent:true 
+                    foldConstants:true
+                    ifFail:[ self halt ].
+            ].
             breakpoints := breakpoints select:[:bp | bp isReached]
         ]
     ]
@@ -230,7 +231,7 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.4 2011-07-06 14:08:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.5 2011-07-06 14:11:27 cg Exp $'
 !
 
 version_SVN