Index: openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl,v
diff -u -r1.15.2.4 -r1.15.2.5
--- openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl	14 Aug 2019 08:06:29 -0000	1.15.2.4
+++ openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl	21 Aug 2019 17:57:27 -0000	1.15.2.5
@@ -144,13 +144,14 @@
         set context_barp ""
         foreach value $bar_components {
             append context_barp \
-                [subst {<a href="[lindex $value 0]">[lindex $value 1]</a> $separator }]
+                [subst {<a href="[ns_quotehtml [lindex $value 0]]">[ns_quotehtml [lindex $value 1]]</a> $separator }]
         }
         append context_barp "$leave_node"
         set context_bar [ad_context_bar -node_id $idr_1 -separator $separator $leave_node]
 
         # Test
-        aa_log "ad_context_bar 1: '$context_bar'\nad_context_bar 2: '$context_barp'"
+        set msg [ns_quotehtml "ad_context_bar 1: '$context_bar'\nad_context_bar 2: '$context_barp'"]
+        aa_log "<pre>$msg</pre>"
         aa_equals "Context_bar = $context_barp"  $context_bar $context_barp
 
         #-----------------------------------------------------------------------
@@ -161,11 +162,14 @@
         set context_barp ""
         foreach value $bar_components {
             append context_barp \
-                [subst {<a href="[lindex $value 0]">[lindex $value 1]</a> $separator }]
+                [subst {<a href="[ns_quotehtml [lindex $value 0]]">[ns_quotehtml [lindex $value 1]]</a> $separator }]
         }
         append context_barp "$leave_node"
         set context_bar [ad_context_bar -node_id $idr_2 -separator $separator $leave_node]
 
+        set msg [ns_quotehtml "ad_context_bar 1: '$context_bar'\nad_context_bar 2: '$context_barp'"]
+        aa_log "<pre>$msg</pre>"
+
         aa_equals "Context_bar = $context_barp"  $context_bar $context_barp
 
         #----------------------------------------------------------------------------