Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	31 Jul 2006 20:31:11 -0000	1.18
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	8 Aug 2006 21:26:19 -0000	1.19
@@ -619,12 +619,12 @@
     set tree_id [category_tree::import -name regions -description {regions and states} -categories {
     1 europe
     2 germany
-    2 {united kingdom}
+	2 {united kingdom}
     2 france
     1 asia
     2 china
-    1 {north america}
-    2 {united states}
+	1 {north america}
+	2 {united states}
     }]
     </pre>
 
@@ -653,18 +653,17 @@
     }
 
     db_transaction {
-	set tree_id [category_tree::add -name $name -description $description -locale $locale -user_id $user_id -creation_ip $creation_ip -context_id $context_id]
+        set tree_id [category_tree::add -name $name -description $description -locale $locale -user_id $user_id -creation_ip $creation_ip -context_id $context_id]
 
-	set parent(0) {}
-	set parent(1) {}
-	set parent(2) {}
-	foreach {level category_name} $categories {
-	    set parent([expr $level + 1]) [category::add -noflush -name $category_name -description $category_name -tree_id $tree_id -parent_id $parent($level) -locale $locale -user_id $user_id -creation_ip $creation_ip]
-	}
+        set parent(0) {}
+        set parent(1) {}
+        set parent(2) {}
+        foreach {level category_name} $categories {
+            set parent([expr $level + 1]) [category::add -noflush -name $category_name -description $category_name -tree_id $tree_id -parent_id $parent($level) -locale $locale -user_id $user_id -creation_ip $creation_ip]
+        }
 
-	category_tree::flush_cache $tree_id
+        category_tree::flush_cache $tree_id
     }
 
     return $tree_id
 }
-