diff --git a/calexium_lib/web/CXM_making_a_web_site.anubis b/calexium_lib/web/CXM_making_a_web_site.anubis
index f487f57..e1d6a61 100644
--- a/calexium_lib/web/CXM_making_a_web_site.anubis
+++ b/calexium_lib/web/CXM_making_a_web_site.anubis
@@ -994,7 +994,7 @@ public type HTML_In_Form:
    text_input            (List(InputAttrs), String label_text, HtmlId id, WebArgName name, InitialValue init, Int32 width), 
    text_input_ro         (List(InputAttrs), String label_text, HtmlId id, WebArgName name, InitialValue init, Int32 width), 
    password_input        (List(InputAttrs), String label_text, HtmlId id, WebArgName name, InitialValue init, Int32 width), 
-   text_area             (List(TextAreaOption), WebArgName name, InitialValue init, Int32 width, Int32 height), 
+   text_area             (List(TextAreaOption), String label_text, HtmlId id, WebArgName name, InitialValue init, Int32 width, Int32 height), 
    file_upload           (String label, HtmlId id, WebArgName name, Int32 width), 
    selector              (List(InputAttrs), String label_text, HtmlId id, WebArgName name, Int32 size, List(String) choices), 
    selector              (List(InputAttrs), String label_text, HtmlId id, WebArgName name, Int32 size, List(String) choices, InitialValue selected), 
@@ -1055,9 +1055,20 @@ public define HTML_In_Form
        Int32  width, 
        Int32  height
      ) =
-   text_area([],name,init,width,height). 
+   text_area([], "", htmlId(""), name,init,width,height). 
    
 public define HTML_In_Form
+   text_area
+     (
+       List(TextAreaOption) options, 
+       WebArgName name,
+       InitialValue init,
+       Int32  width, 
+       Int32  height
+     ) =
+   text_area(options, "", htmlId(""), name,init,width,height). 
+
+public define HTML_In_Form
    table
      (
        List(HTML_Row(HTML_In_Form)) rows
@@ -3720,8 +3731,8 @@ define Printable_tree
        password_input(options, label_text, id, name,i,w)         then 
          [ maybe_label(label_text, id), 
            "<input type=\"password\" name=\"p",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",i,"\"",format_attrs(options)," />"],
-       text_area(opts,n,i,w,h)          then
-         ["<textarea ",format(opts)," name=\"o",n,"\" cols=\"",w,"\" rows=\"",h,"\">",i,"</textarea>"],
+       text_area(opts,label_text, id, n,i,w,h)          then
+         [ maybe_label(label_text, id), "<textarea ",format(opts)," id=\"",id,"\" name=\"o",n,"\" cols=\"",w,"\" rows=\"",h,"\">",i,"</textarea>"],
        file_upload(label, id, n, w)            then 
          [ maybe_label(label, id), 
            "<input type=\"file\" id=\"",id,"\" size=\"",w,"\" name=\"o",n,"\" />"],
@@ -3823,7 +3834,7 @@ define Bool
    text_input(o,lt,l,n,i,w)   then false,
    text_input_ro(o,lt,l,n,i,w) then false,
    password_input(o,lt,l,n,i,w) then false,
-   text_area(o,n,i,w,h)       then false, 
+   text_area(o,lt,id,n,i,w,h)   then false, 
    file_upload(l,i,n,w)       then true, 
    selector(o,l,i,n,s,c)      then false, 
    selector(o,l,i,n,s,c,p)    then false,  
--
libgit2 0.21.4