Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.78.2.24 -r1.78.2.25
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Jan 2017 14:46:50 -0000	1.78.2.24
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Feb 2017 12:52:00 -0000	1.78.2.25
@@ -32,6 +32,7 @@
   ::xotcl::Object instproc www-show-object
   ::xotcl::Object instproc destroy_on_cleanup
   ::xotcl::Object instproc set_instance_vars_defaults
+  ::xotcl::Object instproc mset
   ::xotcl::Class instproc extend_slot
 }
 
@@ -175,6 +176,13 @@
   }
 }
 
+::xotcl::Object instproc mset {pairs} {
+  #
+  # Import all attribute value pairs into the current XOTcl object.
+  #
+  nsf::directdispatch [self] -frame object ::lassign [dict values $pairs] {*}[dict keys $pairs]
+}
+
 ::xotcl::Object instproc www-show-object {} {
   #
   # Allow to show an arbitrary object via API-browser.  Per-default,