--- a/FilenameEditFieldV2.st	Sat Mar 29 14:08:07 2003 +0100
+++ b/FilenameEditFieldV2.st	Sat Mar 29 16:49:21 2003 +0100
@@ -195,13 +195,17 @@
 !FilenameEditFieldV2 methodsFor:'initialization'!
 
 initialize
+    |myEditor|
+
     super initialize.
 
     acceptOnExpand := true.
     directoriesOnly := filesOnly := false.
     directory := Filename currentDirectory.
 "/    self menuButton visibilityChannel:(false asValue).
-    self editor entryCompletionBlock: [:contents |
+    myEditor := self editor.
+
+    myEditor entryCompletionBlock: [:contents |
         |newString isMultiMatch canonContents|
 
         isMultiMatch := false.
@@ -214,13 +218,13 @@
                         ifMultiple:[:dir | ]
                         forMultipleDo:[:dir :matchSet |
                             matchSet notEmpty ifTrue:[
-                                self editor contents:dir name.
+                                myEditor contents:dir name.
                                 completitionList := matchSet asList.
                                 self action:[: string |  | newFile |
                                     string isString ifTrue:[
                                         newFile := string asFilename.
                                         (newFile name endsWith:newFile separator) ifFalse:[
-                                            self editor contents:(newFile name copyWith:newFile separator)
+                                            myEditor contents:(newFile name copyWith:newFile separator)
                                         ].
                                     ]
                                 ].
@@ -309,5 +313,5 @@
 !FilenameEditFieldV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.5 2003-02-28 10:31:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.6 2003-03-29 15:49:21 cg Exp $'
 ! !