--- a/FileSelectionBrowser.st	Thu Jan 29 10:14:28 1998 +0100
+++ b/FileSelectionBrowser.st	Thu Jan 29 14:05:06 1998 +0100
@@ -316,15 +316,13 @@
 open
 
     super open.
-    accept value
-    ifTrue:
-    [
-        ^(self selectionOfDirectory value ? '') , Filename separator, (self valueOfFileName value ? '')
+    accept value ifTrue:[
+        ^ (self selectionOfDirectory value ? '') asFilename 
+                constructString:(self valueOfFileName value ? '')
     ].
-    ^nil
+    ^ nil
 
-
-
+    "Modified: / 28.1.1998 / 15:21:40 / stefan"
 !
 
 postBuildWith:aBuilder