Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	28 Aug 2003 09:41:43 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	29 Aug 2003 21:19:27 -0000	1.15
@@ -85,7 +85,8 @@
     args
 } {
     Returns a Yahoo-style hierarchical navbar. Includes "Administration"
-    if applicable, and the subsite if not global.
+    if applicable, and the subsite if not global. 'args' can be either
+    one or more lists, or a simple string.
 
     @param node_id If provided work up from this node, otherwise the current node
     @param from_node If provided do not generate links to the given node and above.
@@ -112,6 +113,11 @@
     if {[llength $args] == 0} { 
         # fix last element to just be literal string
         set context [lreplace $context end end [lindex [lindex $context end] 1]]
+    } else {
+	if ![string match "{*}" $args] {
+	    # args is not a list, transform it into one.
+	    set args [list $args]
+	}	
     }
 
     if { [info exists separator] } {