Index: openacs-4/packages/acs-templating/tcl/style-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/Attic/style-procs.tcl,v
diff -u -r1.1.2.13 -r1.1.2.14
--- openacs-4/packages/acs-templating/tcl/style-procs.tcl	24 Oct 2022 09:42:07 -0000	1.1.2.13
+++ openacs-4/packages/acs-templating/tcl/style-procs.tcl	24 Oct 2022 18:59:15 -0000	1.1.2.14
@@ -118,7 +118,7 @@
     The configuration of this method is performed via the Tcl dict
     ::template::icon::map, which is set in tag-init.tcl
 
-    @param alt used im classic images. When not specified, use 'title' attribute
+    @param alt used in classic images. When not specified, use 'title' attribute
     @param iconset force isage of this icon set
     @return dict containing 'HTML' and 'cmd'
 } {
@@ -136,6 +136,7 @@
         set iconset text
     }
     set _class [expr {$class ne "" ? " $class" : ""} ]
+    set title [ns_quotehtml $title]
     set cmd ""
     switch $iconset {
         "glyphicons" {