changed to use new `su-define-object`