--- a/framework.rhope	Tue Apr 28 23:06:07 2009 +0000
+++ b/framework.rhope	Wed Apr 29 02:13:24 2009 -0400
@@ -323,7 +323,7 @@
 	newlist <- [destlist]Set[index, [[""]Put Byte[From Hex@Whole Number[code]]]Append[rest]]
 	[list]Next[index]
 	{
-		out <- Decode Helper Straight[list, newlist, ~]
+		out <- Decode Helper Decode[list, newlist, ~]
 	}{
 		out <- Val[newlist]
 	}
@@ -658,7 +658,7 @@
 	}{
 		queryvars <- ""
 	}
-	out <- [[[[[[["<a href=\""]Append[[link]Target>>]]Append[queryvars]]Append["\""]
+	out <- [[[[[[["<a href=\""]Append[[[link]Target>>]Replace["\"", "%22"]]]Append[queryvars]]Append["\""]
 				]Append[Get Class[link]]]Append[">"]]Append[Escape HTML Text[[link]Text>>]]]Append["</a>"]
 }
 
@@ -748,3 +748,35 @@
 				]Append[ Fold[["Make Table Row"]<String@Worker, "", [table]Data >>] ]
 			]Append["\t</table>\n"]
 }
+
+Blueprint Web Image
+{
+	Source
+	Alt
+}
+
+New@Web Image[source,alt:out]
+{
+	out <- [[Build["Web Image"]]Source <<[source]]Alt <<[alt]
+}
+
+Name@Web Image[image:name,none]
+{
+	name <- [image]Source >>
+}
+
+Set Session@Web Image[in,session:out]
+{
+	out <- in
+}
+
+Postback@Web Image[image,post data:out,events]
+{
+	out <- image
+	events <- ()
+}
+
+Render@Web Image[image:out,headers]
+{
+	out <- [[[["<img src=\""]Append[[image]Source >>]]Append["\" alt=\""]]Append[[image]Alt >>]]Append["\">"]
+}