diff --git a/Handler/Pinentry.hs b/Handler/Pinentry.hs
index 96b0c9b..65e959e 100644
--- a/Handler/Pinentry.hs
+++ b/Handler/Pinentry.hs
@@ -53,5 +53,5 @@ postPinentryR uId = do
     )
 
 pinentryForm :: AForm Handler Text
-pinentryForm = areq passwordField (withAtofocus $ bfs MsgPIN) Nothing
+pinentryForm = areq passwordField (withAutofocus $ bfs MsgPIN) Nothing
  <* bootstrapSubmit (msgToBSSubmit MsgSubmit)