kshutils/j

function j
{
	typeset da
	(( $# == 0 )) && diralias && return 0
	da=$(diralias $1)
	if print $da | grep '^!' >/dev/null
	then
		if ! da=$(eval $(print "$da" | sed 's/^!//') 2>/dev/null)
		then
			return 65
		fi
	fi
	'cd' "$da"
}