(client
          (sasl-make-client mechanism "chris" "imap" "elwood.innosoft.com"))
         (sasl-read-passphrase
-         #'(lambda (prompt)
-             "secret"))
+         (function
+          (lambda (prompt)
+            "secret")))
         step
         response)
     (sasl-client-set-property client 'realm "elwood.innosoft.com")
         (client
          (sasl-make-client mechanism "chris" "acap" "elwood.innosoft.com"))
         (sasl-read-passphrase
-         #'(lambda (prompt)
-             "secret"))
+         (function
+          (lambda (prompt)
+            "secret")))
         step
         response)
     (sasl-client-set-property client 'realm "elwood.innosoft.com")