Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.150 -r1.189.2.151
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Sep 2022 08:20:27 -0000	1.189.2.150
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	11 Oct 2022 09:04:57 -0000	1.189.2.151
@@ -1768,7 +1768,7 @@
         if { !$html_p } {
             set message [ns_quotehtml $message]
         }
-        lappend messages $message
+        dict incr messages $message
     }
     ad_set_client_property "acs-kernel" "general_messages" $messages
 }
@@ -1800,7 +1800,10 @@
         ad_set_client_property "acs-kernel" "general_messages" {}
     }
     template::multirow create $multirow message
-    foreach message $messages {
+    foreach {message count} $messages {
+        if {$count > 1} {
+            append message " ($count)"
+        }
         template::multirow append $multirow $message
     }
 }