open_terminal_here.scpt

set results to ""
try
	tell application "Finder" to set results to POSIX path of (target of window 1 as alias)
on error
	beep
end try

results

tell application "Terminal"
	activate
	set currentTab to do script "cd '" & results & "'"
end tell