Doh... TCL doesn't have "mountpoint", so we need to emulate it for this script

... (which is pretty simple for what this script needs)