**********************************************************************
* Name:		->ID
* Stack:	( $ --> id )
* Desc:		Convert object to identifier
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME \8DID
::
  CK1&Dispatch
  str
  :: DUPLEN$ #7F #> caseSIZEERR $>ID ;
;

**********************************************************************