(put 'and-let* 'scheme-indent-function 1)
(put 'with-request-vars 'scheme-indent-function 2)
(put 'with-request-vars* 'scheme-indent-function 2)
(put 'with-request-variables 'scheme-indent-function 1)
(put 'with-transaction 'scheme-indent-function 1)
(put 'handle-exceptions 'scheme-indent-function 1)