cd [file dirname $source]
   tar::create /tmp/directoryCopy.[pid].tar [file tail $source]
   cd $pwd
   cd $dest
   tar::untar /tmp/directoryCopy.[pid].tar
   file delete -force /tmp/directoryCopy.[pid].tar 
   cd $pwd