Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -N -r1.15.6.2 -r1.15.6.3
--- openacs-4/packages/xotcl-core/www/show-object.tcl	17 Sep 2013 06:52:42 -0000	1.15.6.2
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	17 Sep 2013 17:49:24 -0000	1.15.6.3
@@ -123,7 +123,7 @@
     set pretty [list]
     foreach p $parameters {
       if {[llength $p]>1} {
-        foreach {p default} $p break
+        lassign $p p default
         lappend pretty "$p (default <span style='color: green; font-style: italic'>\"$default\"</span>)"
       } else {
         lappend pretty "$p"