diff --git a/calexium_lib/mail/smtp_client.anubis b/calexium_lib/mail/smtp_client.anubis
index 7d1cf3f..e2e8f07 100644
--- a/calexium_lib/mail/smtp_client.anubis
+++ b/calexium_lib/mail/smtp_client.anubis
@@ -202,7 +202,7 @@ define Result(SmtpClientResult, $T)
   
    Sending a piece of text (String) from the begining. 
    
-define Maybe(One)
+public define Maybe(One)
   smtp_send_line
   (
     RWStream  conn,
diff --git a/calexium_lib/web/CXM_making_a_web_site.anubis b/calexium_lib/web/CXM_making_a_web_site.anubis
index ab7e0e8..7da8f5e 100644
--- a/calexium_lib/web/CXM_making_a_web_site.anubis
+++ b/calexium_lib/web/CXM_making_a_web_site.anubis
@@ -650,7 +650,8 @@ public type Text_Option:
    class(String),         //CSS class 
    id(String),
    style(String),
-   title(String).
+   title(String),
+   attr(String, String).
    
 public define Text_Option
   tooltip(String s) = title(s).
@@ -2997,6 +2998,8 @@ define List(CoreAttrs)
        [ style(the_style) .  get_css_class(t) ]
       else if h is title(name) then
        [ tooltip(name) .  get_css_class(t) ]
+      else if h is attr(name, value) then
+       [ attr(name, value) .  get_css_class(t) ]
       else
         get_css_class(t)
   }
@@ -3644,6 +3647,7 @@ define String
            id(id_name)      then " id=\"" + id_name +"\"",
            style(style_string)  then " style=\"" + style_string + "\"",
            title(s)         then " title=\"" + s +"\""
+           attr(n,v)        then " " + n + "=\"" + v +"\""
          } + if t is [ ] then "" else ("; "+format(t))
      }.
    
--
libgit2 0.21.4