--- a/SelListV.st	Tue Feb 28 22:52:21 1995 +0100
+++ b/SelListV.st	Mon Mar 06 20:29:54 1995 +0100
@@ -38,7 +38,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.23 1995-02-27 10:41:04 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.24 1995-03-06 19:29:23 claus Exp $
 '!
 
 !SelectionInListView class methodsFor:'documentation'!
@@ -59,7 +59,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.23 1995-02-27 10:41:04 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.24 1995-03-06 19:29:23 claus Exp $
 "
 !
 
@@ -1808,11 +1808,13 @@
     |newList|
 
     changedObject == model ifTrue:[
-	(something == initialSelectionSymbol) ifTrue:[
+	(initialSelectionSymbol notNil
+	and:[something == initialSelectionSymbol]) ifTrue:[
 	    self selectElement:(model perform:initialSelectionSymbol).
 	    ^ self
 	].
-	(something == aspectSymbol) ifTrue:[
+	(aspectSymbol notNil
+	and:[something == aspectSymbol]) ifTrue:[
 	    newList := (model perform:listSymbol) asStringCollection.
 	    (newList = list) ifFalse:[
 		self list:newList