--- a/FileApplicationNoteBook.st	Sat Jun 28 22:53:04 2003 +0200
+++ b/FileApplicationNoteBook.st	Sun Jun 29 09:56:21 2003 +0200
@@ -1939,7 +1939,7 @@
 
     fn := self fileName.
     fn notNil ifTrue:[
-        dir := self fileName directory.
+        dir := fn asFilename directory.
     ] ifFalse:[
         fn := archiver fileName withoutSuffix.
         (fn exists and:[fn isDirectory]) ifTrue:[
@@ -4883,5 +4883,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.95 2003-06-17 14:54:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.96 2003-06-29 07:56:21 stefan Exp $'
 ! !