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 -N -r1.15 -r1.16
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	29 Aug 2003 21:19:27 -0000	1.15
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	31 Aug 2003 06:38:14 -0000	1.16
@@ -114,7 +114,7 @@
         # fix last element to just be literal string
         set context [lreplace $context end end [lindex [lindex $context end] 1]]
     } else {
-	if ![string match "{*}" $args] {
+	if ![string match "\{*" $args] {
 	    # args is not a list, transform it into one.
 	    set args [list $args]
 	}