Cambiar dato de estructura dentro de estructura

(define-struct persona (nombre edad trabajo))

(define-struct work (empresa salario))

;;Quiero cambiar el salario

(define (cambiar-salario per sal)
   (make-persona
        (persona-nombre per)
        (persona-edad per)
        (make-work
             (work-empresa (persona-trabajo per))
             sal
        )
   )
)