Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/categories/tcl/widget-procs.tcl	9 Feb 2004 19:43:14 -0000	1.9
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	12 Feb 2004 14:27:46 -0000	1.10
@@ -95,7 +95,7 @@
 	    util_unlist $category category_id category_name deprecated_p level
 	    set category_name [ad_quotehtml $category_name]
 	    if { $level>1 } {
-		set category_name "[category::indent_html [expr 2*$level -4]]..$category_name"
+		set category_name "[string repeat " " [expr 2*$level -4]]..$category_name"
 	    }
 	    lappend one_tree [list $category_name $category_id]
 	}
Index: openacs-4/packages/categories/www/include/widget.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/www/include/widget.tcl	9 Feb 2004 19:43:33 -0000	1.4
+++ openacs-4/packages/categories/www/include/widget.tcl	12 Feb 2004 14:28:44 -0000	1.5
@@ -23,7 +23,7 @@
 	util_unlist $category category_id category_name deprecated_p level
 	set indent ""
 	if {$level>1} {
-	    set indent "[category::indent_html [expr 2*$level -4]].."
+	    set indent "[string repeat " " [expr 2*$level -4]].."
 	}
 	set selected_p [info exists mapped($category_id)]