Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	27 Feb 2005 22:45:39 -0000	1.25
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	8 Jun 2005 16:13:36 -0000	1.26
@@ -13,7 +13,7 @@
 
 namespace eval group {}
 
-ad_proc group::new { 
+ad_proc -public group::new { 
     { -form_id "" }
     { -variable_prefix "" }
     { -creation_user "" }
@@ -104,6 +104,7 @@
     lappend var_list [list context_id $context_id]
     lappend var_list [list $id_column $group_id]
     if { ![empty_string_p $group_name] } {
+	set group_name [lang::util::convert_to_i18n -prefix "group" -text "$group_name"]
         lappend var_list [list group_name $group_name]
     }