--- a/DebugView.st	Wed Mar 27 20:29:21 2013 +0100
+++ b/DebugView.st	Wed Mar 27 20:29:50 2013 +0100
@@ -7217,11 +7217,15 @@
 "/                answer:(aClass package ? PackageId noProjectID)
 "/                do:[
                     codeView contents:someCode.
-                    newMethod := aClass compilerClass
-                                     compile:someCode
-                                     forClass:aClass
-                                     inCategory:category
-                                     notifying:codeView.
+                    Class methodRedefinitionNotification 
+                        answer:#keep    
+                        do:[
+                            newMethod := aClass compilerClass
+                                             compile:someCode
+                                             forClass:aClass
+                                             inCategory:category
+                                             notifying:codeView.
+                        ].
 "/                ].
             ].
         ].
@@ -8267,11 +8271,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.577 2013-03-27 19:13:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.578 2013-03-27 19:29:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.577 2013-03-27 19:13:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.578 2013-03-27 19:29:50 cg Exp $'
 !
 
 version_SVN