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.23 -r1.24
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	21 Nov 2007 14:08:44 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	13 Dec 2007 17:22:59 -0000	1.24
@@ -11,7 +11,7 @@
 #    hierarchy)
 
 ad_proc -public ad_context_bar_html {
-    {-separator " : "}
+    -separator
     context
 } { 
     Generate the an html fragement for a context bar.
@@ -31,9 +31,16 @@
 
     @see ad_context_bar
 } { 
+    
+    # Get the separator from subsite parameter
+    if { ![info exists separator] } {
+        set subsite_id [ad_conn subsite_id]
+        set separator [parameter::get -package_id $subsite_id -parameter ContextBarSeparator -default ":"]
+    }
+
     set out {}
     foreach element [lrange $context 0 [expr {[llength $context] - 2}]] { 
-        append out "<a href=\"[lindex $element 0]\">[lindex $element 1]</a>$separator"
+        append out "<a href=\"[lindex $element 0]\">[lindex $element 1]</a> $separator "
     }
     append out [lindex $context end]