Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -r1.49 -r1.50 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 18 Dec 2007 14:48:36 -0000 1.49 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 8 Jan 2008 17:07:24 -0000 1.50 @@ -342,6 +342,7 @@ if {$value eq $v} {return [my localize $label]} } } + #my log "mapping $v" return [string map [list & "&" < "<" > ">" \" """ ' "'" @ "@"] $v] } Index: openacs-4/packages/xowiki/www/admin/list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/list.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/packages/xowiki/www/admin/list.tcl 26 Nov 2007 09:14:44 -0000 1.18 +++ openacs-4/packages/xowiki/www/admin/list.tcl 8 Jan 2008 17:07:24 -0000 1.19 @@ -44,7 +44,7 @@ append actions [subst { Action new \ -label "[_ xotcl-core.add [list type [$type pretty_name]]]" \ - -url $link \ + -url "$link" \ -tooltip "[_ xotcl-core.add_long [list type [$type pretty_name]]]" }] }