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 -N -r1.165 -r1.166
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Dec 2009 07:46:44 -0000	1.165
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Dec 2009 17:29:08 -0000	1.166
@@ -484,7 +484,7 @@
 
   FormField instproc pretty_value {v} {
     #my log "mapping $v"
-    return [string map [list & "&amp;" < "&lt;" > "&gt;" \" "&quot;" ' "&apos;" @ "&#64;"] $v]
+    return [string map [list & "&amp;" < "&lt;" > "&gt;" \" "&quot;" ' "&#39;" @ "&#64;"] $v]
   }
 
   FormField instproc has_instance_variable {var value} {