Index: openacs-4/packages/dotlrn-homework/www/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/master.tcl,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/dotlrn-homework/www/master.tcl	7 Sep 2021 12:20:26 -0000	1.3.2.1
+++ openacs-4/packages/dotlrn-homework/www/master.tcl	7 Sep 2021 12:23:20 -0000	1.3.2.2
@@ -2,6 +2,7 @@
     Master
 } {
     title:optional
+    {context_bar ""}
 }
 
 if {![info exists title]} {
@@ -11,12 +12,12 @@
         set title "Homework"
     }
 }
-set cmd [list ad_context_bar -node_id [site_node::get_parent_id -node_id [ad_conn node_id]] --]
-foreach elem $context_bar { 
-    lappend cmd $elem
-}
-set context_bar [eval $cmd]
 
+set context_bar [ad_context_bar \
+                     -node_id [site_node::get_parent_id \
+                                   -node_id [ad_conn node_id]] -- \
+                     {*}$context_bar]
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4