diff --git a/lib/files.tcl b/lib/files.tcl
index 99d0c89..065a40a 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -149,7 +149,7 @@ namespace eval FileOper {
         if {[catch {cd $directory}] != 0} {
             return ""
         }
-        set parent [Tree::InsertItem $tree {} $directory "directory" $directory]
+        set parent [Tree::InsertItem $tree {} $directory "directory" [file tail $directory]]
         # if {[ $tree  item $parent -open] eq "false"} {
             # $tree  item $parent -open true
         # } else {