AppleScript to switch to the current Finder directory

Run as a TextExpander snippet for maximum utility.

I run this snippet as `,cddir`.