diff --git a/src/Main.elm b/src/Main.elm
index 78fdb8a..58fd050 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -243,8 +243,8 @@ view m =
         , viewSection "Rules" <| Html.div [] <|
             [ viewTabSelector m.tab [(Rendered, "Rendered"), (Editor, "Editor"), (MetaEditor, "Presentation Rules")]
             , viewTab m.tab
-                (Html.textarea [ onInput SetProgram ] [ Html.text m.program ])
-                (Html.textarea [ onInput SetRenderProgram ] [ Html.text m.renderProgram ])
+                (Html.textarea [ onInput SetProgram, value m.program ] [ ])
+                (Html.textarea [ onInput SetRenderProgram, value m.renderProgram ] [ ])
                 (Html.Lazy.lazy2 viewRules m.renderProgram m.program)
             ] ++
             viewIfError progsOrErr