Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	20 Jul 2008 18:18:24 -0000	1.46
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	15 Aug 2008 13:20:17 -0000	1.47
@@ -30,7 +30,7 @@
   ExternalLink instproc render {} {
     my instvar href label title target
     set title_att ""
-    if {[info exists title]} {append  title_att " title='$title'"}
+    if {[info exists title]}  {append  title_att " title='[string map [list ' {'}] $title]'"}
     if {[info exists target]} {append title_att " target='$target'"}
     return "<a $title_att [my mk_css_class -additional external] href='$href'>$label</a>"
   }
@@ -44,7 +44,7 @@
   }
   Link instproc atts {} {
     set atts ""
-    if {[my exists title]} {append atts " title='[my title]'"}
+    if {[my exists title]}  {append atts " title='[string map [list ' {&#39;}] [my title]]'"}
     if {[my exists target]} {append atts " target='[my target]'"}
   }
   Link instproc init {} {