Open TotalTerminal on the current folder

AppleScript

on run
	tell application "Finder"
		try
			activate
			set frontWin to folder of front window as string
			set frontWinPath to (get POSIX path of frontWin)
			tell application "Terminal"
				activate
				tell application "System Events"
					keystroke "`" using {control down} -- bring down visor
					--keystroke "t" using {command down} -- open on a new tab
				end tell
				do script "cd \"" & frontWinPath & "\"" in front window
			end tell
		on error error_message
			beep
			display dialog error_message buttons ¬
				{"OK"} default button 1
		end try
	end tell
end run