--- a/Tools__BreakpointBrowser.st	Sat Mar 30 16:57:18 2013 +0100
+++ b/Tools__BreakpointBrowser.st	Sat Mar 30 16:57:52 2013 +0100
@@ -1856,9 +1856,10 @@
 !
 
 relatedToPackage:aPackagePattern
-    |package|
+    |mthd package|
 
-    package := self method package.
+    (mthd := self method) isNil ifTrue:[^ false].
+    package := mthd package.
     (aPackagePattern includesMatchCharacters) ifTrue:[
          ^ aPackagePattern match: package
     ].
@@ -1971,11 +1972,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.43 2013-03-28 15:26:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.43 2013-03-28 15:26:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $'
 ! !