--- a/SystemBrowser.st	Thu Sep 23 22:37:40 1999 +0200
+++ b/SystemBrowser.st	Thu Sep 23 23:10:48 1999 +0200
@@ -1049,10 +1049,15 @@
 browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
     "launch a browser for all methods referencing aSymbol"
 
+    |b|
+
+    doWarn ifTrue: [
+	b := [self showNoneFound:title]
+    ].
     ^ self
         browseForSymbol:aSymbol 
         title:title 
-        ifNone:(doWarn ifTrue:[[self showNoneFound:title]] ifFalse:[nil]) 
+        ifNone:b
         searchFor:searchString
 !
 
@@ -1319,10 +1324,16 @@
      named aGlobalName.
     "
 
+    |b|
+
+    doWarn ifTrue: [
+	b := [self showNoneFound:title]
+    ].
+
     ^ self
         browseReferendsOf:aGlobalName 
         title:title 
-        ifNone:(doWarn ifTrue:[[self showNoneFound:title]] ifFalse:[nil])
+        ifNone:b
 
 !
 
@@ -2081,6 +2092,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.95 1999-09-23 20:23:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.96 1999-09-23 21:10:48 cg Exp $'
 ! !
 SystemBrowser initialize!