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.5 -r1.1.2.6
--- openacs-4/packages/acs-templating/tcl/style-procs.tcl	19 Apr 2022 17:35:05 -0000	1.1.2.5
+++ openacs-4/packages/acs-templating/tcl/style-procs.tcl	14 Aug 2022 08:05:46 -0000	1.1.2.6
@@ -112,18 +112,19 @@
     } elseif {$name eq ""} {
         set iconset text
     }
+    set _class [expr {$class ne "" ? " $class" : ""} ]
     set cmd ""
     switch $iconset {
         "glyphicons" {
-            set template {<span class='glyphicon glyphicon-$name$class' title='$title' aria-hidden='true' $styleAtt></span>}
+            set template {<span class='glyphicon glyphicon-$name$_class' title='$title' aria-hidden='true' $styleAtt></span>}
         }
         "bootstrap-icons" {
             set cmd {template::head::add_css -href urn:ad:css:bootstrap-icons}
-            set template {<i class='bi bi-$name$class' title='$title' aria-hidden='true' $styleAtt></i>}
+            set template {<i class='bi bi-$name$_class' title='$title' aria-hidden='true' $styleAtt></i>}
         }
         "fa-icons" {
             set cmd {template::head::add_css -href urn:ad:css:fa-icons}
-            set template {<i class='$name$class' title='$title' aria-hidden='true' $styleAtt></i>}
+            set template {<i class='$name$_class' title='$title' aria-hidden='true' $styleAtt></i>}
         }
         "text" {
             if {$alt eq ""} {set alt $title}