Index: openacs-4/packages/acs-subsite/www/admin/site-map/allow-for-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/allow-for-view.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/site-map/allow-for-view.tcl	19 Jan 2018 14:09:48 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/site-map/allow-for-view.tcl	29 Mar 2018 23:21:15 -0000	1.7
@@ -10,7 +10,7 @@
 
 set user_id [auth::require_login]
 
-if { ![info exist checkbox] } {
+if { ![info exists checkbox] } {
     set checkbox ""
 }
 
Index: openacs-4/packages/news/www/admin/process.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/process.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/news/www/admin/process.tcl	7 Aug 2017 23:48:12 -0000	1.12
+++ openacs-4/packages/news/www/admin/process.tcl	29 Mar 2018 23:25:45 -0000	1.13
@@ -68,7 +68,7 @@
 } 
 
 # proceed if no errors
-if { ![info exist halt_p] || $halt_p==0 } {
+if { ![info exists halt_p] || $halt_p==0 } {
 
     template::list::create \
         -name news_items \
Index: openacs-4/packages/static-portlet/www/element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/element.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/static-portlet/www/element.tcl	29 Mar 2018 15:03:01 -0000	1.21
+++ openacs-4/packages/static-portlet/www/element.tcl	29 Mar 2018 23:26:56 -0000	1.22
@@ -41,7 +41,7 @@
 set community_id $package_id
 set portal_name [portal::get_name $portal_id]
 
-if {[info exist content_id]} {
+if {[info exists content_id]} {
     set element_content_id $content_id
     set file_content_id $content_id
 }
Index: openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl	2 Nov 2005 20:30:21 -0000	1.9
+++ openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl	29 Mar 2018 23:28:10 -0000	1.10
@@ -22,7 +22,7 @@
     set to_index ""
 }
 
-if { [info exist return_url] } {
+if { [info exists return_url] } {
     set return_url $return_url
 } else {
     set return_url "course-info?course_id=$course_id&course_name=$name&course_key=$course_key"
Index: openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl	22 Feb 2005 22:15:30 -0000	1.5
+++ openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl	29 Mar 2018 23:28:10 -0000	1.6
@@ -10,7 +10,7 @@
     { level "" }
 }
 
-if { [info exist category_f] } {
+if { [info exists category_f] } {
     set var_list [split $category_f "&"]
     set category_v [lindex $var_list 0]
     set level [lindex [split [lindex $var_list 1] "="] 1]
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 -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 ""
     }
Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl	19 Jan 2018 12:59:09 -0000	1.9
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl	29 Mar 2018 23:28:10 -0000	1.10
@@ -28,7 +28,7 @@
 # Check for create permissions over dotlrn-catalog package
 permission::require_permission -party_id $user_id -object_id $cc_package_id -privilege "create"
 
-if { [info exist mode] } {
+if { [info exists mode] } {
     if { [string equal $mode 1] } {
 	permission::require_permission -object_id $course_id -privilege "admin"
     } 
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 {