selector check - do not crash
authorClaus Gittinger <cg@exept.de>
Wed, 26 Sep 2001 18:15:28 +0200
changeset 3221 b9659fb96e6a
parent 3220 2838a2b22947
child 3222 b95c86b3b511
selector check - do not crash
SystemBrowser.st
--- a/SystemBrowser.st	Wed Sep 26 17:56:33 2001 +0200
+++ b/SystemBrowser.st	Wed Sep 26 18:15:28 2001 +0200
@@ -3347,8 +3347,8 @@
         ^ sel
     ].
     (sel startsWith:'#') ifTrue:[
-        t := Symbol readFrom:sel.
-        t knownAsSymbol ifTrue:[
+        t := Symbol readFrom:sel onError:nil.
+        (t notNil and:[ t knownAsSymbol ]) ifTrue:[
             ^ t
         ]
     ].
@@ -3438,6 +3438,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.133 2001-09-11 10:20:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.134 2001-09-26 16:15:28 cg Exp $'
 ! !
 SystemBrowser initialize!