Function Cwd

Part of:

package kmrcl
( cwd &optional < dir > )

Change directory and set default pathname