--- a/FilenameEditFieldV2.st	Thu Feb 06 18:20:52 2003 +0100
+++ b/FilenameEditFieldV2.st	Fri Feb 07 10:47:14 2003 +0100
@@ -217,10 +217,12 @@
                                 self editor contents:dir name.
                                 completitionList := matchSet asList.
                                 self action:[: string |  | newFile |
-                                    newFile := string asFilename.
-                                    (newFile name endsWith:newFile separator) ifFalse:[
-                                        self editor contents:(newFile name copyWith:newFile separator)
-                                    ].
+                                    string isString ifTrue:[
+                                        newFile := string asFilename.
+                                        (newFile name endsWith:newFile separator) ifFalse:[
+                                            self editor contents:(newFile name copyWith:newFile separator)
+                                        ].
+                                    ]
                                 ].
                                 self pullMenu.
                                 completitionList := nil.
@@ -307,5 +309,5 @@
 !FilenameEditFieldV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.3 2002-12-12 16:07:43 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.4 2003-02-07 09:47:14 penk Exp $'
 ! !