Index: openacs-4/packages/chat/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/Attic/apm-callback-procs.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/chat/tcl/apm-callback-procs.tcl	7 Mar 2019 14:11:09 -0000	1.1.2.2
+++ openacs-4/packages/chat/tcl/apm-callback-procs.tcl	7 Mar 2019 14:16:00 -0000	1.1.2.3
@@ -26,11 +26,11 @@
                     ServerPort
                     ShowAvatarP
                 }
-                ::xo::dc foreach [subst {
+                ::xo::dc foreach get_parameters [subst {
                     select parameter_id, parameter_name
                       from apm_parameters
                     where package_key = 'chat'
-                      and parameter_name in ('[join $parameter_names ']')
+                      and parameter_name in ('[join $parameter_names ',']')
                 }] {
                     apm_parameter_unregister \
                         -package_key chat $parameter_id