(define (define-my-page matcher proc)
  (define-page matcher
    (lambda ()
      (do-things)
      (proc))))