Index: openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	29 Jul 2006 23:10:33 -0000	1.16
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	6 Mar 2007 07:42:08 -0000	1.16.2.1
@@ -113,7 +113,7 @@
                 # form data by richtext validation DAVEB
                 template::element::set_properties $element(form_id) $element(id) -datatype text
 		append formtext_to_display "
-<input type=\"hidden\" name=\"$element(id).format\" value=\"$format\" />"
+<input type=\"hidden\" name=\"$element(id).format\" value=\"$format\" >"
 	    }
 
 	    # This is needed in order to display the form text noquoted in the "show errors" page ...
@@ -295,7 +295,7 @@
 	set wordlen [string length $errword]
 	
 	if { [string equal "miss" $errtype] } {
-	    regsub "\#$errnum\#" $formtext "<input type=\"text\" name=\"${var_to_spellcheck}.error_$errnum\" value=\"$errword\" size=\"$wordlen\" />" formtext
+	    regsub "\#$errnum\#" $formtext "<input type=\"text\" name=\"${var_to_spellcheck}.error_$errnum\" value=\"$errword\" size=\"$wordlen\" >" formtext
 	} elseif { [string equal "nearmiss" $errtype] } {
 	    regsub -all ", " $erroptions "," erroptions
 	    set options [split $erroptions ","]
@@ -323,7 +323,7 @@
     regsub -all {<a [^<]*>} $formtext_to_display "<u>" formtext_to_display
     regsub -all {</a>} $formtext_to_display "</u>" formtext_to_display
 
-    append formtext_to_display "<input type=\"hidden\" name=\"${var_to_spellcheck}.merge_text\" value=\"[ad_quotehtml $processed_text]\" />"
+    append formtext_to_display "<input type=\"hidden\" name=\"${var_to_spellcheck}.merge_text\" value=\"[ad_quotehtml $processed_text]\" >"
 
 
     ####