Index: openacs-4/packages/bookmarks/www/tree-dynamic.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/tree-dynamic.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/bookmarks/www/tree-dynamic.tcl	12 Jul 2004 14:49:53 -0000	1.4
+++ openacs-4/packages/bookmarks/www/tree-dynamic.tcl	13 Jan 2005 13:56:13 -0000	1.5
@@ -53,8 +53,10 @@
     set i_str [string repeat "\t" $lev]
     set local_title [regsub -all {\\} $local_title {\\\\}]
     set local_title [regsub -all {'} $local_title {\'}]
+    set local_title [regsub -all {[[:cntrl:]]} $local_title {}]
     set complete_url [regsub -all {\\} $complete_url {\\\\}]
     set complete_url [regsub -all {'} $complete_url {\'}]
+    set complete_url [regsub -all {[[:cntrl:]]} $complete_url {}]
 
 
 #    # decoration refers to color and font of the associated text
@@ -70,7 +72,7 @@
 #	append decoration $folder_decoration
 #    }
 
-   
+
     if {$folder_p == "t"} {
 	append js "$i_str\['[ad_quotehtml [string trim $local_title]]', null,\n"
     } else {