--- a/Tools__MethodRewriter.st	Mon Jul 04 17:59:02 2011 +0200
+++ b/Tools__MethodRewriter.st	Mon Jul 04 18:00:17 2011 +0200
@@ -101,6 +101,20 @@
     "Created: / 03-07-2011 / 21:59:47 / cg"
 !
 
+templateReplaceSelfHaltBySelfBreakPoint
+    |initials|
+
+    initials := OperatingSystem getLoginName.
+
+    ^Array 
+        with:('Replace ','self halt' allBold,' by ','self breakPoint: #' allBold ,initials)
+        with: 'self halt'
+        with: 'self breakPoint: #',initials
+
+    "Modified: / 17-02-2008 / 08:35:09 / janfrog"
+    "Created: / 04-07-2011 / 17:43:46 / cg"
+!
+
 templateReplaceSelfHaltBySelfError
 
     ^Array 
@@ -1022,7 +1036,7 @@
 !MethodRewriter class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.9 2011-07-04 15:42:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.10 2011-07-04 16:00:17 cg Exp $'
 !
 
 version_SVN