Index: openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl,v
diff -u -N -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl	16 May 2019 09:54:29 -0000	1.7.2.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/delete.tcl	6 Sep 2022 07:40:51 -0000	1.7.2.2
@@ -85,13 +85,13 @@
 
 set export_form_vars [export_vars -form {group_type return_url}]
 
-set groups_of_this_type [util_commify_number [db_string groups_of_this_type {
+set groups_of_this_type [lc_numeric [db_string groups_of_this_type {
     select count(o.object_id)
       from acs_objects o
      where o.object_type = :group_type
 }]]
 
-set relations_to_this_type [util_commify_number [db_string relations_to_this_type {
+set relations_to_this_type [lc_numeric [db_string relations_to_this_type {
     select count(r.rel_id)
       from acs_rels r
      where r.rel_type in (select t.rel_type