(setq identify (lambda Nil
	(block (element)
		(enum (sysfindobject gsource "Es") element
			(dbgOutput (objgetname element))
			(objSetIdentified element)
			)
		)
	))