Index: openacs-4/packages/ams/tcl/ams-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-init.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/ams/tcl/ams-init.tcl	9 Sep 2005 17:08:30 -0000	1.4
+++ openacs-4/packages/ams/tcl/ams-init.tcl	17 May 2018 07:56:38 -0000	1.5
@@ -8,7 +8,7 @@
 
 ams::widgets_init
 
-if { [empty_string_p [info procs "::lang::util::convert_to_i18n"]] } {
+if { [empty_string_p [info commands "::lang::util::convert_to_i18n"]] } {
 
     ns_log notice "proc ::lang::util::convert_to_i18n not provided by acs-lang because we are using an older version. the proc will be added via ams."
 
Index: openacs-4/packages/ams/tcl/ams-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs.tcl,v
diff -u -N -r1.41 -r1.42
--- openacs-4/packages/ams/tcl/ams-widget-procs.tcl	16 May 2018 15:36:39 -0000	1.41
+++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl	17 May 2018 07:56:38 -0000	1.42
@@ -168,7 +168,7 @@
 
     @return 0 if false 1 if true
 } {
-    return [string is false [empty_string_p [info procs "::ams::widget::${widget}"]]]
+    return [string is false [empty_string_p [info commands "::ams::widget::${widget}"]]]
 }
 
 ad_proc -private ams::widget_has_options_p {
@@ -2169,7 +2169,7 @@
 	
 	set proc "map_$attribute_name"
 	
-	if {[llength [info procs $proc]] == 1} {
+	if {[llength [info commands $proc]] == 1} {
 	    if {[exists_and_not_null value]} {
 		if {[catch {set value [eval $proc {$value}]} err]} {
 		    append error_string "Contact \#$contact_count ($first_names $last_name): $err<br>"