Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.263 -r1.264
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	20 Jul 2008 18:18:24 -0000	1.263
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Aug 2008 13:20:17 -0000	1.264
@@ -946,10 +946,7 @@
       return $page$ch2
     } else {
       # we have a direct (adp-less include)
-      # Some browsers change {{cmd -flag "..."}} into {{cmd -flag "..."}}
-      # We have to change this back
-      regsub -all {([^\\])"}  $arg "\\1\"" arg
-      set html [my include $arg]
+      set html [my include [my undoublequote $arg]]
       #my log "--include includelet returns $html"
       incr ::xowiki_inclusion_depth -1
       return $html$ch2
@@ -971,13 +968,20 @@
       return ""
     }
   }
+  Page instproc undoublequote string {
+    # Some browsers change {{cmd -flag "..."}} into {{cmd -flag "..."}}
+    # We have to change this back
+    regsub -all {([^\\])"} $string "\\1\"" string
+    return $string
+  }
   Page instproc anchor {arg} {
     #my msg [self args]
     set label $arg
     set link $arg
     set options ""
     regexp {^([^|]+)[|](.*)$} $arg _ link label
     regexp {^([^|]+)[|](.*)$} $label _ label options
+    set options [my undoublequote $options]
     if {[string match "http*//*" $link] || [string match "//*" $link]} {
       if {[regsub {^//} $link / link]} {
 	#my msg t=[::xowiki::guesstype $link]