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.2.8.4 -r1.2.8.5
--- openacs-4/packages/bookmarks/www/tree-dynamic.tcl	30 Jun 2004 05:28:32 -0000	1.2.8.4
+++ openacs-4/packages/bookmarks/www/tree-dynamic.tcl	24 Aug 2004 03:49:34 -0000	1.2.8.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 {