diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs
index c67e4e6..89f49a7 100644
--- a/src/Vervis/Handler/Inbox.hs
+++ b/src/Vervis/Handler/Inbox.hs
@@ -495,9 +495,10 @@ getActorKey2R = getActorKey (\ (_, k2, _) -> k2) ActorKey2R
 
 notificationForm :: Maybe (Maybe (InboxItemId, Bool)) -> Form (Maybe (InboxItemId, Bool))
 notificationForm defs = renderDivs $ mk
-    <$> aopt hiddenField "Inbox Item ID#" (fmap fst <$> defs)
-    <*> aopt hiddenField "New unread flag" (fmap snd <$> defs)
+    <$> aopt hiddenField (name "Inbox Item ID#") (fmap fst <$> defs)
+    <*> aopt hiddenField (name "New unread flag") (fmap snd <$> defs)
     where
+    name t = FieldSettings "" Nothing Nothing (Just t) []
     mk Nothing     Nothing       = Nothing
     mk (Just ibid) (Just unread) = Just (ibid, unread)
     mk _           _             = error "Missing hidden field?"