Index: openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl,v
diff -u -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl	29 Sep 2013 12:04:42 -0000	1.4.2.1
+++ openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl	3 Oct 2013 07:56:58 -0000	1.4.2.2
@@ -33,14 +33,18 @@
 set context_bar [category::context_bar $tree_id $locale \
                      [value_if_exists object_id] \
                      [value_if_exists ctx_id]]
-lappend context_bar [list [export_vars -no_empty -base tree-copy { {tree_id $target_tree_id} locale object_id ctx_id }] [_ categories.Action_copy_tree]] "View \"$tree_name\""
+lappend context_bar [list \
+			 [export_vars -no_empty -base tree-copy { {tree_id $target_tree_id} locale object_id ctx_id }] \
+			 [_ categories.Action_copy_tree]] \
+    "View \"$tree_name\""
 
 template::multirow create tree category_name deprecated_p level left_indent
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
     lassign $category category_id category_name deprecated_p level
 
-    template::multirow append tree $category_name $deprecated_p $level [string repeat " " [expr ($level-1)*5]]
+    template::multirow append tree $category_name $deprecated_p $level \
+	[string repeat " " [expr {($level-1)*5}]]
 }
 
 template::list::create \