--- a/BreakPointInterrupt.st	Mon May 27 17:32:02 2019 +0200
+++ b/BreakPointInterrupt.st	Mon May 27 20:45:54 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -9,8 +11,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libbasic' }"
 
-"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
 
 HaltInterrupt subclass:#BreakPointInterrupt
 	instanceVariableNames:''
@@ -37,13 +40,26 @@
 
 documentation
 "
-    Raised by the breakpoint wrapper code.
-    A debug-breakpoint (see browsers methodList-debug menu).
+    Raised by the breakpoint wrapper code or by line breakpoints.
+    A debug-breakpoint (see browser's methodList-debug menu).
 "
 ! !
 
+!BreakPointInterrupt methodsFor:'accessing'!
+
+lineBreakpoint
+    "for line breakpoints, a non-nil breakpoint object is returned,
+     which can be enabled/disabled.
+     For method breakpoints, nil is returned."
+     
+    ^ parameter
+
+    "Created: / 27-05-2019 / 20:45:45 / Claus Gittinger"
+! !
+
 !BreakPointInterrupt class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BreakPointInterrupt.st,v 1.3 2003-08-29 19:18:16 cg Exp $'
+    ^ '$Header$'
 ! !
+