--- a/SystemBrowser.st	Fri Apr 12 18:58:17 1996 +0200
+++ b/SystemBrowser.st	Fri Apr 12 19:09:48 1996 +0200
@@ -382,9 +382,20 @@
     (aString includesMatchCharacters) ifTrue:[
         s := '*' , aString , '*'.
         "a matchString"
-        searchBlock := [:c :m :sel | s match:m source]
+        searchBlock := [:c :m :sel | 
+                            |src|       
+                            src := m source.
+                            src isNil ifTrue:['no source' printNL. false]
+                            ifFalse:[s match:m source]
+                       ]
     ] ifFalse:[
-        searchBlock := [:c :m :sel | (m source findString:aString) ~~ 0]
+        searchBlock := [:c :m :sel | 
+                            |src|
+
+                            src := m source.
+                            src isNil ifTrue:['no source' printNL. false]
+                            ifFalse:[ (m source findString:aString) ~~ 0 ]
+                       ]
     ].
     browser := self browseMethodsIn:aCollectionOfClasses where:searchBlock title:title.
 
@@ -400,7 +411,7 @@
     "
 
     "Created: 9.12.1995 / 18:03:12 / cg"
-    "Modified: 9.12.1995 / 18:11:19 / cg"
+    "Modified: 12.4.1996 / 19:03:29 / cg"
 !
 
 browseForSymbol:aSymbol
@@ -1230,6 +1241,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.52 1996-03-08 11:47:54 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.53 1996-04-12 17:09:48 cg Exp $'
 ! !
 SystemBrowser initialize!