Index: openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl	27 Mar 2018 14:22:30 -0000	1.6
+++ openacs-4/packages/dotlrn-catalog/tcl/dotlrn-catalog-procs.tcl	29 Mar 2018 23:28:10 -0000	1.7
@@ -252,8 +252,8 @@
     
     # The tree id from categories
     set tree_list [category_tree::get_mapped_trees $cc_package_id]
-    if { [string equal [lindex [lindex $tree_list 0] 1] "dotlrn-course-catalog"] } {
-	set tree_id [lindex [lindex $tree_list 0] 0]
+    if { [string equal [lindex $tree_list 0 1] "dotlrn-course-catalog"] } {
+	set tree_id [lindex $tree_list 0 0]
     } else {
 	set tree_id ""
     }