diff --git a/Web/View/Tasks/New.hs b/Web/View/Tasks/New.hs
index 12b48e4..e2f8a82 100644
--- a/Web/View/Tasks/New.hs
+++ b/Web/View/Tasks/New.hs
@@ -37,9 +37,9 @@ prototypeFor field record =
     where
         parentFormContext = ?formContext
         prototype :: Html
-        prototype = let ?formContext = parentFormContext { model = parentFormContext.model |> set field [newRecord] } in nestedFormFor field renderTagForm
+        prototype = let ?formContext = parentFormContext { model = parentFormContext.model |> set field [record] } in nestedFormFor field renderTagForm
 
 renderTagForm :: (?formContext :: FormContext Tag) => Html
 renderTagForm = [hsx|
     {(textField #name) { disableLabel = True, placeholder = "Tag name" } }
-|]
\ No newline at end of file
+|]