--- a/Breakpoint.st	Fri Sep 09 13:21:13 2016 +0200
+++ b/Breakpoint.st	Sun Sep 11 15:41:30 2016 +0200
@@ -53,6 +53,14 @@
     ^ self basicNew initialize.
 ! !
 
+!Breakpoint class methodsFor:'queries'!
+
+breakpointDescriptionClass
+    "redefinable in subclasses"
+    
+    ^ BreakpointDescription
+! !
+
 !Breakpoint class methodsFor:'utilities'!
 
 disableAllBreakpoints
@@ -122,7 +130,7 @@
     "/ please change as required (and remove this comment)
     "/ method := nil.
     "/ position := nil.
-    description := BreakpointDescription new.
+    description := self class breakpointDescriptionClass new.
     "/ line := nil.
 
     "/ super initialize.   -- commented since inherited method does nothing