Index: openacs-4/packages/acs-templating/tcl/style-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/style-procs.tcl,v
diff -u -r1.1.2.17 -r1.1.2.18
--- openacs-4/packages/acs-templating/tcl/style-procs.tcl	1 Nov 2022 16:10:25 -0000	1.1.2.17
+++ openacs-4/packages/acs-templating/tcl/style-procs.tcl	2 Nov 2022 13:20:12 -0000	1.1.2.18
@@ -131,11 +131,12 @@
     if {[dict exists $::template::icon::map $iconset $name]} {
         set name [dict get $::template::icon::map $iconset $name]
     }
-    if {[string range $name 0 0] eq "/"} {
+    set firstchar [string range $name 0 0]
+    if {$firstchar eq "/"} {
         set iconset default
     } elseif {$name eq ""} {
         set iconset text
-    } elseif {![string match {[a-z]} [string range $name 0 0]]} {
+    } elseif {![string match {[a-z@]} $firstchar]} {
         set iconset text
         set alt $name
     }