setf retval problem