--- a/FileApplicationNoteBook.st	Tue Nov 19 16:55:19 2002 +0100
+++ b/FileApplicationNoteBook.st	Tue Nov 19 17:42:29 2002 +0100
@@ -1769,7 +1769,7 @@
 
     | dir directory haveDirectory|
 
-    directory := self fileName directory.
+    directory := dir := self fileName directory.
     haveDirectory := false.
     [haveDirectory] whileFalse:[
         dir := Dialog requestDirectoryName:message default:dir.
@@ -4706,5 +4706,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.37 2002-11-19 14:44:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.38 2002-11-19 16:42:29 cg Exp $'
 ! !