diff --git a/demos/04-demo.lisp b/demos/04-demo.lisp
index a9e5f7e..2e3eb12 100644
--- a/demos/04-demo.lisp
+++ b/demos/04-demo.lisp
@@ -59,7 +59,7 @@
   
 (defun new-content (app)
   (setf (inner-html (main app)) "")
-  (let ((new-page  (create-form-element (main app) :text))
+  (let ((new-page  (create-form-element (main app) :text :value "New Title"))
 	(tmp       (create-br (main app)))
 	(text-area (create-text-area (main app) :rows 10 :columns 40)))
     (declare (ignore tmp))