--- a/Tools__BreakpointBrowser.st	Mon Nov 03 12:22:50 2008 +0100
+++ b/Tools__BreakpointBrowser.st	Mon Nov 03 16:59:55 2008 +0100
@@ -692,6 +692,7 @@
 !
 
 selectedBreakpointListEntry
+    self selectionIndex isNil ifTrue:[^ nil].
     ^ self breakpointListEntryAtIndex:(self selectionIndex).
 !
 
@@ -1472,5 +1473,5 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.9 2008-10-21 22:17:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.10 2008-11-03 15:59:55 sr Exp $'
 ! !