diff --git a/library/server/wsf_html/webcontrol/wsf_button_control.e b/library/server/wsf_html/webcontrol/wsf_button_control.e
index 9da1feb1..a1f4958a 100644
--- a/library/server/wsf_html/webcontrol/wsf_button_control.e
+++ b/library/server/wsf_html/webcontrol/wsf_button_control.e
@@ -59,7 +59,7 @@ feature
 
 	render: STRING
 		do
-			Result := "<button data-name=%"" + control_name + "%" data-type=%"WSF_BUTTON_CONTROL%">" + generator + text + "</button>"
+			Result := render_tag ( text, "")
 		end
 
 	set_text (t: STRING)
diff --git a/library/server/wsf_html/webcontrol/wsf_control.e b/library/server/wsf_html/webcontrol/wsf_control.e
index b4b2c791..47af1c05 100644
--- a/library/server/wsf_html/webcontrol/wsf_control.e
+++ b/library/server/wsf_html/webcontrol/wsf_control.e
@@ -73,9 +73,20 @@ feature --EVENT HANDLING
 
 feature
 
-	render_tag (body, attributes: STRING): STRING
+	render_tag(body,attributes:STRING):STRING
+		local
+			css_class_string: STRING
 		do
-			Result := "<" + tag_name + "  data-name=%"" + control_name + "%" data-type=%"" + generator + "%" " + attributes
+			css_class_string := ""
+			across
+				css_class as c
+			loop
+				css_class_string := css_class_string + " " + c.item
+			end
+			if not css_class_string.is_empty then
+				css_class_string := " class=%"" + css_class_string + "%""
+			end
+			Result:="<"+tag_name+"  data-name=%"" + control_name + "%" data-type=%""+generator+"%" "+attributes+css_class_string
 			if not body.is_empty then
 				Result := Result + " />"
 			else
diff --git a/library/server/wsf_html/webcontrol/wsf_textarea_control.e b/library/server/wsf_html/webcontrol/wsf_textarea_control.e
index d552bd41..1ee25a96 100644
--- a/library/server/wsf_html/webcontrol/wsf_textarea_control.e
+++ b/library/server/wsf_html/webcontrol/wsf_textarea_control.e
@@ -10,6 +10,9 @@ class
 inherit
 
 	WSF_TEXT_CONTROL
+		redefine
+			render
+		end
 
 create
 	make_textarea
@@ -21,4 +24,11 @@ feature {NONE}
 			make_text (n, t)
 		    tag_name := "textarea"
 		end
+feature
+
+	render: STRING
+		do
+			Result :=render_tag(text,"")
+		end
+
 end