--- a/MethodWithBreakpoints.st	Mon Feb 03 10:20:54 2014 +0100
+++ b/MethodWithBreakpoints.st	Mon Feb 03 10:36:36 2014 +0100
@@ -60,6 +60,18 @@
     originalMethod := something.
 ! !
 
+!MethodWithBreakpoints methodsFor:'enumeration'!
+
+breakpointsDo:aBlock
+    self literalsDo:[:lit | 
+        lit class == Breakpoint ifTrue:[
+            aBlock value:lit 
+        ]
+    ].
+
+    "Created: / 03-02-2014 / 10:34:45 / cg"
+! !
+
 !MethodWithBreakpoints methodsFor:'misc'!
 
 restoreOriginalMethod
@@ -89,10 +101,10 @@
 !MethodWithBreakpoints class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.3 2013-08-28 23:18:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.4 2014-02-03 09:36:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.3 2013-08-28 23:18:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.4 2014-02-03 09:36:36 cg Exp $'
 ! !