--- a/FileSelectionBox.st	Mon Oct 23 21:07:01 1995 +0100
+++ b/FileSelectionBox.st	Tue Oct 24 18:22:41 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.20 1995-09-07 12:44:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.21 1995-10-24 17:22:41 cg Exp $
 '!
 
 !FileSelectionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.20 1995-09-07 12:44:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.21 1995-10-24 17:22:41 cg Exp $
 "
 !
 
@@ -219,7 +219,7 @@
 !FileSelectionBox methodsFor:'change & update'!
 
 update:something with:argument from:changedObject
-    |commonName index|
+    |commonName index s|
 
     something == #directory ifTrue:[
 	"
@@ -228,11 +228,14 @@
 	 matches.
 	"
 	selectionList directory:argument.
-	commonName := enterField contents asFilename baseName.
-	commonName size > 0 ifTrue:[
-	    index := selectionList list findFirst:[:entry | entry startsWith:commonName].
-	    index ~~ 0 ifTrue:[
-		selectionList makeLineVisible:index
+	s := enterField contents.
+	s notNil ifTrue:[
+	    commonName := s asFilename baseName.
+	    commonName size > 0 ifTrue:[
+		index := selectionList list findFirst:[:entry | entry startsWith:commonName].
+		index ~~ 0 ifTrue:[
+		    selectionList makeLineVisible:index
+		]
 	    ]
 	]
     ]