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 -r1.40 -r1.41
--- openacs-4/packages/ams/tcl/ams-widget-procs.tcl	9 May 2018 15:33:29 -0000	1.40
+++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl	16 May 2018 15:36:39 -0000	1.41
@@ -127,7 +127,7 @@
     Return all widget procs. Each list element is a list of the first then pretty_name then the widget
 } {
     set widgets [list]
-    set all_procs [::info procs "::ams::widget::*"]
+    set all_procs [::info commands "::ams::widget::*"]
     foreach widget $all_procs {
 			 if { [string is false [regsub {__arg_parser} $widget {} widget]] } {
 			     regsub {::ams::widget::} $widget {} widget