Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl	2 Nov 2005 20:30:22 -0000	1.9
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl	29 Mar 2018 23:28:10 -0000	1.10
@@ -27,22 +27,22 @@
 
 # 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 ""
 }
 
 if { [acs_user::site_wide_admin_p] } {
-    if { [info exist keyword] } {
+    if { [info exists keyword] } {
 	set query get_course_info_site_wide_keyword
 	set paginator_query site_wide_paginator_keyword
     } else {
 	set query get_course_info_site_wide
 	set paginator_query site_wide_paginator
     }
 } else {
-    if { [info exist keyword] } {
+    if { [info exists keyword] } {
 	set query get_course_info_keyword
 	set paginator_query site_wide_paginator_keyword
     } else {