diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index 430583bf8..f6f329951 100644
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@@ -290,11 +290,11 @@ postAuthPredsR = do
       <$> funcForm taForm (fslI MsgActiveAuthTags) True
       <*  submitButton
 
-  formResult authActiveRes $ \authTagActive -> do
+  formResultModal authActiveRes AuthPredsR $ \authTagActive -> do
     setSessionJson SessionActiveAuthTags authTagActive
-    addMessageI Success MsgAuthPredsActiveChanged
-    redirect AuthPredsR
+    tell . pure =<< messageI Success MsgAuthPredsActiveChanged
 
   defaultLayout $ do
     setTitleI MsgAuthPredsActive
+    isModal <- hasCustomHeader HeaderIsModal
     $(widgetFile "authpreds")
diff --git a/templates/authpreds.hamlet b/templates/authpreds.hamlet
index 4f04f04b7..abb3042c3 100644
--- a/templates/authpreds.hamlet
+++ b/templates/authpreds.hamlet
@@ -1,2 +1,2 @@
-<form method=post action=@{AuthPredsR} enctype=#{authActiveEnctype}>
+<form method=post action=@{AuthPredsR} enctype=#{authActiveEnctype} :isModal:data-ajax-submit>
   ^{authActiveWidget}