diff --git a/src/Handler/SystemMessage.hs b/src/Handler/SystemMessage.hs
index 12747a62d..00e034c3f 100644
--- a/src/Handler/SystemMessage.hs
+++ b/src/Handler/SystemMessage.hs
@@ -29,8 +29,8 @@ systemMessageVolatileClusterSettingsForm (fmap Set.toList -> mPrev) = wFormToAFo
   let
     volatileClusterSettingForm :: (Text -> Text) -> Maybe (VolatileClusterSettingsKey, Value) -> Form (VolatileClusterSettingsKey, Value)
     volatileClusterSettingForm nudge mTemplate csrf = do
-      (keyRes, keyView) <- mpopt (selectField optionsFinite) ("" & addName (nudge "key"  )) (view _1 <$> mTemplate)
-      (valRes, valView) <- mreq  (jsonField JsonFieldNormal) ("" & addName (nudge "value")) (view _2 <$> mTemplate)
+      (keyRes, keyView) <- mpreq (selectField optionsFinite) ("" & addName (nudge "key"  )) (view _1 <$> mTemplate)
+      (valRes, valView) <- mpreq (jsonField JsonFieldNormal) ("" & addName (nudge "value")) (view _2 <$> mTemplate)
       return ((,) <$> keyRes <*> valRes, $(widgetFile "widgets/massinput/systemMessage/volatileClusterSettings/form"))
 
     miAdd nudge submitView csrf = do