execute_pushpop_property (get_outlet (), sym, eprop, SCM_UNDEFINED);
execute_pushpop_property (get_outlet (), sym, eprop, val);
execute_pushpop_property (get_outlet (), sym, eprop, SCM_UNDEFINED);
execute_pushpop_property (get_outlet (), sym, eprop, val);