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 -r1.78.2.25 -r1.78.2.26
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Feb 2017 12:52:00 -0000	1.78.2.25
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	1 Mar 2017 20:04:44 -0000	1.78.2.26
@@ -180,7 +180,9 @@
   #
   # Import all attribute value pairs into the current XOTcl object.
   #
-  nsf::directdispatch [self] -frame object ::lassign [dict values $pairs] {*}[dict keys $pairs]
+  if {[llength $pairs] > 0} {
+    nsf::directdispatch [self] -frame object ::lassign [dict values $pairs] {*}[dict keys $pairs]
+  }
 }
 
 ::xotcl::Object instproc www-show-object {} {