smtp-sasl-user-name "smtp" (smtp-connection-server connection)))
     (if smtp-sasl-user-realm
        (sasl-instantiator-set-property
-        instantiator (list 'realm smtp-sasl-user-realm)))
+        instantiator 'realm smtp-sasl-user-realm))
     (setq mechanism (sasl-authenticator-mechanism authenticator)
          ;; Retrieve the initial response
          sasl-response (sasl-evaluate-challenge authenticator instantiator))