Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.75.2.12 -r1.75.2.13
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	1 Feb 2020 08:04:14 -0000	1.75.2.12
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	2 Feb 2020 20:50:09 -0000	1.75.2.13
@@ -566,7 +566,13 @@
   ConnectionContext instproc exists_parameter {name} {
     info exists :perconnectionparam($name)
   }
-
+  ConnectionContext instproc perconnection_parameter_get_all {} {
+    array get :perconnectionparam
+  }
+  ConnectionContext instproc perconnection_parameter_set_all {pairs} {
+    array unset :perconnectionparam
+    array set :perconnectionparam $pairs
+  }
 }
 
 namespace eval ::xo {