diff --git a/calexium_lib/web/CXM_making_a_web_site.anubis b/calexium_lib/web/CXM_making_a_web_site.anubis
index 8c1ec8f..d4d4bd6 100644
--- a/calexium_lib/web/CXM_making_a_web_site.anubis
+++ b/calexium_lib/web/CXM_making_a_web_site.anubis
@@ -2114,6 +2114,7 @@ public define Web_Site
      (
        List(String)                common_names,   // for example: ["www.our-business.com"]
        String                      site_directory,     
+       String                      state_directory,     
        One -> One         init, 
        (HTTP_Info) -> (Maybe($SessionTicket), Maybe($State), List(HTTP_header))        initial_state, 
        ($State expired,
@@ -2143,7 +2144,7 @@ public define Web_Site
       //
       with web_sites_directory = make_directory(my_anubis_directory+"/web_sites"),  
           		  base_directory = make_directory(site_directory),
-               state_directory = make_directory(site_directory+"/states"), 
+              // state_directory = make_directory(site_directory+"/states"), 
           forget(make_directory(site_directory+"/public")); 
       //
       // construct tool functions
@@ -2656,7 +2657,7 @@ public define Printable_tree
   if l is 
     {
       [ ] then [ ], 
-      [h . t] then ["<option>",h . format_choices(t)]
+      [h . t] then ["<option>", h, "</option>\n" . format_choices(t)]
     }.
 
 
@@ -2670,8 +2671,8 @@ public define Printable_tree
     {
       [ ] then [ ], 
       [h . t] then if h = selected.value
-        then ["<option selected>",h . format_choices(t)]
-        else ["<option>",h . format_choices(t,selected)]
+        then ["<option selected>", h, "</option>\n" . format_choices(t)]
+        else ["<option>", h, "</option>\n" . format_choices(t,selected)]
     }.
 
    
@@ -2685,7 +2686,7 @@ public define Printable_tree
       [ ] then [ ], 
       [h . t] then
        if h is (val,item) 
-        then ["<option value=\""+val.value+"\">",item . format_choices(t)]
+        then ["<option value=\""+val.value+"\">", item, "</option>\n" . format_choices(t)]
     }.
    
 public define Printable_tree
@@ -2700,8 +2701,8 @@ public define Printable_tree
       [h . t] then 
        if h is (val,item) then 
        if val.value = selected.value 
-         then ["<option value=\""+val.value+"\" selected=\"selected\">",item . format_choices(t)]
-         else ["<option value=\""+val.value+"\">",item . format_choices(t,selected)]
+         then ["<option value=\""+val.value+"\" selected=\"selected\">", item, "</option>\n" . format_choices(t)]
+         else ["<option value=\""+val.value+"\">", item, "</option>\n" . format_choices(t,selected)]
     }.
    
    
@@ -3755,7 +3756,7 @@ define Printable_tree
          	"<input type=\"file\" id=\"",id,"\" size=\"",w,"\" name=\"o",n,"\" />"],
        selector(opts, label, id, n,s,cs)            then 
          ["<label for=\"",id,"\">",label,"</label>",
-          "<select name=\"o",n,"\" size=\"",s,"\" ",format_attrs(opts),">",format_choices(cs),"</select>"],
+          "<select id=\"",id,"\" name=\"o",n,"\" size=\"",s,"\" ",format_attrs(opts),">",format_choices(cs),"</select>"],
        selector(opts, label, id, n,s,cs,sd)         then 
          ["<label for=\"",id,"\">",label,"</label>",
           "<select name=\"o",n,"\" size=\"",s,"\" ",format_attrs(opts),">",format_choices(cs,sd),"</select>"],
--
libgit2 0.21.4