(define (make-joint account password new-password)
  (define (fail) "Incorrect password")
  (define (dispatch pass message)
    (cond ((not (eq? new-password pass)) (fail))
          (else (account password message))))
  dispatch)
#| END |#