--- a/FileSelectionBox.st	Tue Aug 11 21:43:45 1998 +0200
+++ b/FileSelectionBox.st	Wed Aug 12 09:57:15 1998 +0200
@@ -242,7 +242,7 @@
         box accepted ifTrue:[
             Transcript showCR:'full path:  ' , box pathName.
             Transcript showCR:'files name: ' , box fileName.
-            Transcript showCR:'directory : ' , box directory.
+            Transcript showCR:'directory : ' , box directory pathName.
         ]
                                                                         [exEnd]
 "
@@ -327,7 +327,9 @@
 
     string := super contents.
     string isNil ifTrue:[^ nil].
-    ^ self pathName
+    ^ self pathName asFilename baseName
+
+    "Modified: / 12.8.1998 / 09:54:01 / cg"
 !
 
 matchBlock:aBlock
@@ -640,5 +642,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.50 1998-08-07 18:01:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.51 1998-08-12 07:57:15 cg Exp $'
 ! !