Index: openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	22 Jul 2005 05:07:13 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	18 Apr 2011 16:56:12 -0000	1.9
@@ -48,7 +48,7 @@
 	    append result $join_string
 	}
 	incr i
-	append result "\n    $indent<a href=./one?[export_url_vars object_type]>[lang::util::localize $pretty_name]</a>"
+	append result [subst {\n    $indent<a href="./one?[export_url_vars object_type]">[lang::util::localize $pretty_name]</a>}]
 	append result $additional_html
 
     }