Index: openacs-4/packages/acs-developer-support/www/css-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/css-edit.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-developer-support/www/css-edit.tcl	22 Jun 2015 21:03:12 -0000	1.4
+++ openacs-4/packages/acs-developer-support/www/css-edit.tcl	16 Aug 2015 21:55:55 -0000	1.4.2.1
@@ -26,7 +26,7 @@
 	}
 	{css_description:text(text),optional }
     } -on_request {
-
+	
 	set package_id [ad_conn package_id]
 	set css_path "<a href='[ns_quotehtml $css_location]'>$css_location</a>"
 	set fp [open $file_location "r"]
@@ -48,10 +48,13 @@
 		} else {
 		    set return_url_2 [ad_return_url]
 		    set href [export_vars -base css-make-live -url {revision_id return_url_2 file_location}]
-		    set make_live [subst {<a href="[ns_quotehtml $href]">make live!</a>]
+		    set make_live [subst {<a href="[ns_quotehtml $href]">make live!</a>}]
 		}
 		set return_url ""
-		append revision_html "<li><a href='/o/$revision_id'>$publish_date</a> \[$make_live\]: [string range $description 0 50]</li>"
+		append revision_html [subst {
+		    <li><a href="/o/$revision_id">$publish_date</a>
+		    \[$make_live\]: [string range $description 0 50]</li>
+		}]
 	    }
 	    append revision_html "</ol>"
 	    file stat $file_location file_stat_arr
@@ -75,7 +78,7 @@
 
 	    # Get the old version to initialize the item with
 	    set fp [open "$file_location" "r"]
-            set old_css_content [read $fp]
+	    set old_css_content [read $fp]
 	    close $fp
 
 	    set item_id [content::item::new -name $file_location \