Index: openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	9 May 2009 22:27:53 -0000	1.11
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	8 Dec 2012 18:20:36 -0000	1.12
@@ -57,7 +57,7 @@
 	    5.2.0a2 5.2.0a3 {
 		db_transaction {
 		    db_foreach select_group_name {select group_id, group_name from groups} {
-			if { ![empty_string_p [info procs "::lang::util::convert_to_i18n"]] } {
+			if { [info commands "::lang::util::convert_to_i18n"] ne "" } {
 			    set pretty_name [lang::util::convert_to_i18n -message_key "group_title_${group_id}" -text "$group_name"]
 			} else {
 			    set pretty_name "$group_name"
@@ -80,7 +80,7 @@
 	    5.2.0a2 5.2.0a3 {
 		db_transaction {
 		    db_foreach select_group_name {select group_id, group_name from groups} {
-			if { ![empty_string_p [info procs "::lang::util::convert_to_i18n"]] } {
+			if { [info commands "::lang::util::convert_to_i18n"] ne "" } {
 			    set pretty_name [lang::util::convert_to_i18n -message_key "group_title_${group_id}" -text "$group_name"]
 			} else {
 			    set pretty_name "$group_name"