From 1bd36b3d879cf91733211c2c77c0900d8655db4d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 29 Sep 2008 23:13:46 -0500
Subject: [PATCH] Working on XHTML 1.1 validation

---
 basis/html/components/components.factor | 2 +-
 extra/webapps/pastebin/new-paste.xml    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/html/components/components.factor b/basis/html/components/components.factor
index dafc9dd06b..6f35ba5d97 100644
--- a/basis/html/components/components.factor
+++ b/basis/html/components/components.factor
@@ -83,7 +83,7 @@ TUPLE: choice size multiple choices ;
     choice new ;
 
 : render-option ( text selected? -- )
-    <option [ "true" =selected ] when option>
+    <option [ "selected" =selected ] when option>
         present escape-string write
     </option> ;
 
diff --git a/extra/webapps/pastebin/new-paste.xml b/extra/webapps/pastebin/new-paste.xml
index 6abae4895b..96339b6cf8 100644
--- a/extra/webapps/pastebin/new-paste.xml
+++ b/extra/webapps/pastebin/new-paste.xml
@@ -18,6 +18,6 @@
 			</tr>
 		</table>
 
-		<input type="SUBMIT" value="Submit" />
+		<p> <button>Submit</button> </p>
 	</t:form>
 </t:chloe>