cd "$(dirname $0)"
test -L .tclshrc || fail "no .tclshrc symlink"
-text -x "./$script" || fail "script not executable"
+test -x "./$script" || fail "script not executable"
-openvt -c "$vc" -w -- \
- really -u "$username" screen ./"$script"
+really -u "$username" \
+ openvt -f -c "$vc" -w -- \
+ screen ./"$script"