Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.50 -r1.50.2.1
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	29 Jul 2013 08:39:07 -0000	1.50
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	17 Sep 2013 17:49:23 -0000	1.50.2.1
@@ -1583,7 +1583,7 @@
     return [list $arrays $scalars]
   }
   CrCache::Item instproc set_non_persistent_vars {vars} {
-    foreach {arrays scalars} $vars break
+    lassign $vars arrays scalars
     foreach {var value} $arrays {my array set $var $value}
     foreach {var value} $scalars {my set $var $value}
   }