--- a/FileDialog.st	Thu Jun 13 12:23:07 2013 +0100
+++ b/FileDialog.st	Fri Jun 21 19:05:40 2013 +0100
@@ -210,6 +210,10 @@
         ^ failBlock value
     ].
     enteredFileName := enteredFileNameString asFilename.
+    enteredFileName isRelative ifTrue:[
+        enteredFileName := instance directory construct:enteredFileNameString
+    ].
+
     enteredFileNameString := enteredFileName asString.
     (enteredFileName notNil 
     and:[enteredFileNameString notEmpty]) ifTrue:[
@@ -384,6 +388,9 @@
         ^ failBlock value
     ].
     enteredFileName := enteredFileNameString asFilename.
+    enteredFileName isRelative ifTrue:[
+        enteredFileName := instance directory construct:enteredFileNameString
+    ].
     enteredFileNameString := enteredFileName asString.
 
     (enteredFileName notNil 
@@ -2064,11 +2071,11 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.121 2013-06-07 13:25:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.121 2013-06-07 13:25:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $'
 !
 
 version_HG
@@ -2077,6 +2084,6 @@
 !
 
 version_SVN
-    ^ '$Id: FileDialog.st,v 1.121 2013-06-07 13:25:22 cg Exp $'
+    ^ '$Id: FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $'
 ! !