Function Cwd

Part of:

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