Set the Name property into a class definition change it's Class property to the name value.

CLEAR

=CREATEOBJECT("ClassName")

DEFINE CLASS ClassName	AS Custom
	Name	= 'ObjectName'

   PROCEDURE Init
	? "Class expected <ClassName>, Observed :"	,this.Class
        * this not set Class
	this.Name = "AnotherName"
	? "Class expected <ClassName>, Observed :"	,this.Class
ENDDEFINE