--- a/BrowserView.st	Wed Nov 06 21:50:14 1996 +0100
+++ b/BrowserView.st	Thu Nov 07 16:33:37 1996 +0100
@@ -3636,7 +3636,7 @@
 !
 
 switchToClassNamed:aString
-    |meta str classSymbol theClass newCat element idx|
+    |meta str classSymbol theClass newCat element idx l|
 
     meta := false.
     str := aString.
@@ -3689,10 +3689,13 @@
         self updateClassList.
         self switchToClass:theClass.
 
-        idx := classListView list findFirst:[:line | line withoutSpaces = str].
-        classListView selection:idx.
-
-"/        classListView setSelectElement:str.
+        l := classListView list.
+        l notNil ifTrue:[
+            idx := l findFirst:[:line | line withoutSpaces = str].
+            classListView selection:idx.
+
+"/            classListView setSelectElement:str.
+        ].
 
         self instanceProtocol:meta not.
         self classSelectionChanged.
@@ -3703,7 +3706,7 @@
 
     "Modified: 1.9.1995 / 01:41:35 / claus"
     "Modified: 17.6.1996 / 16:54:55 / stefan"
-    "Modified: 14.10.1996 / 20:21:23 / cg"
+    "Modified: 7.11.1996 / 15:04:45 / cg"
 !
 
 updateClassList
@@ -8332,6 +8335,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.205 1996-11-06 20:50:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.206 1996-11-07 15:33:37 cg Exp $'
 ! !
 BrowserView initialize!