Function Cwd

( cwd &optional < dir > )
Change directory and set default pathname