Index: openacs-4/packages/contacts/lib/contact-complaint-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-form.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	8 Nov 2006 18:36:33 -0000	1.16
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	3 Apr 2018 20:36:18 -0000	1.17
@@ -8,16 +8,16 @@
 #                          note: the project_id is an item_id
 
 
-if { ![info exist return_url] } {
+if { ![info exists return_url] } {
     set return_url [get_referrer]
 }
 
-if { ![info exist mode] } {
+if { ![info exists mode] } {
     set mode "edit"
 }
 
 if { ![exists_and_not_null complaint_id] } {
-    if { [info exist complaint_id] } {
+    if { [info exists complaint_id] } {
 	unset complaint_id
     }
     set complaint_rev_id ""
@@ -26,7 +26,7 @@
 }
 
 set title_default_value ""
-if { [info exist project_id] } {
+if { [info exists project_id] } {
     set title_default_value [lang::util::localize [content::item::get_title -item_id $project_id]]
 }
 
Index: openacs-4/packages/contacts/lib/contacts-aggregated.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts-aggregated.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/lib/contacts-aggregated.tcl	25 Nov 2005 18:12:21 -0000	1.9
+++ openacs-4/packages/contacts/lib/contacts-aggregated.tcl	3 Apr 2018 20:36:18 -0000	1.10
@@ -3,7 +3,7 @@
 set optional_unset_list [list]
 
 foreach required_param $required_param_list {
-    if { ![info exist $required_param] } {
+    if { ![info exists $required_param] } {
 	ad_return_complaint 1 "Parameter $required_param is required"
     }
 }
Index: openacs-4/packages/datamanager/tcl/datamanager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/tcl/datamanager-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/datamanager/tcl/datamanager-procs.tcl	22 Jun 2006 14:26:30 -0000	1.2
+++ openacs-4/packages/datamanager/tcl/datamanager-procs.tcl	3 Apr 2018 20:36:18 -0000	1.3
@@ -231,7 +231,7 @@
         Get the trash packageidentifier 
     } { 
 
-        if {[info exist community_id] == 0 } {
+        if {[info exists community_id] == 0 } {
            set community_id [dotlrn_community::get_community_id]
         }
         db_1row get_package_id {}
Index: openacs-4/packages/datamanager/www/available-comm-template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/available-comm-template.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/datamanager/www/available-comm-template.tcl	22 Jun 2006 14:38:27 -0000	1.2
+++ openacs-4/packages/datamanager/www/available-comm-template.tcl	3 Apr 2018 20:36:18 -0000	1.3
@@ -3,7 +3,7 @@
 } -properties {
 }
 
-if {[info exist department_key] eq 0} {
+if {[info exists department_key] eq 0} {
     set department_key ""
 } 
     set available_name [join [list "available" $communities_classes] "_"]
Index: openacs-4/packages/datamanager/www/import2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/import2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/datamanager/www/import2.tcl	23 Jun 2006 11:03:35 -0000	1.2
+++ openacs-4/packages/datamanager/www/import2.tcl	3 Apr 2018 20:36:18 -0000	1.3
@@ -21,7 +21,7 @@
 set contbien 0
 set contmal 0 
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
   set sufix ""
 }
     
Index: openacs-4/packages/datamanager/www/use-dotlrn_club.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/use-dotlrn_club.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/use-dotlrn_club.tcl	22 Jun 2006 14:38:27 -0000	1.1
+++ openacs-4/packages/datamanager/www/use-dotlrn_club.tcl	3 Apr 2018 20:36:18 -0000	1.2
@@ -15,7 +15,7 @@
 set ok_url "ok.tcl"
 set items_ok 0
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
     set sufix ""
 }     
 
Index: openacs-4/packages/datamanager/www/use-dotlrn_faq2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/use-dotlrn_faq2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/use-dotlrn_faq2.tcl	22 Jun 2006 14:38:27 -0000	1.1
+++ openacs-4/packages/datamanager/www/use-dotlrn_faq2.tcl	3 Apr 2018 20:36:18 -0000	1.2
@@ -15,7 +15,7 @@
 set ok_url "ok.tcl"
 set items_ok 0
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
     set sufix ""
 }     
 
Index: openacs-4/packages/datamanager/www/use-dotlrn_forums2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/use-dotlrn_forums2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/use-dotlrn_forums2.tcl	22 Jun 2006 14:38:27 -0000	1.1
+++ openacs-4/packages/datamanager/www/use-dotlrn_forums2.tcl	3 Apr 2018 20:36:18 -0000	1.2
@@ -15,9 +15,9 @@
 set ok_url "ok.tcl"
 set items_ok 0
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
     set sufix ""
-}     
+}
 
 regsub -all {\{} $object_id "" object_id
 regsub -all {\}} $object_id "" object_id
Index: openacs-4/packages/datamanager/www/use-dotlrn_news2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/use-dotlrn_news2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/use-dotlrn_news2.tcl	22 Jun 2006 14:38:27 -0000	1.1
+++ openacs-4/packages/datamanager/www/use-dotlrn_news2.tcl	3 Apr 2018 20:36:18 -0000	1.2
@@ -15,7 +15,7 @@
 set ok_url "ok.tcl"
 set items_ok 0
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
     set sufix ""
 }
 
Index: openacs-4/packages/datamanager/www/use-dotlrn_static2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/use-dotlrn_static2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/use-dotlrn_static2.tcl	22 Jun 2006 14:38:27 -0000	1.1
+++ openacs-4/packages/datamanager/www/use-dotlrn_static2.tcl	3 Apr 2018 20:36:18 -0000	1.2
@@ -15,7 +15,7 @@
 set ok_url "ok.tcl"
 set items_ok 0
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
     set sufix ""
 }
 
Index: openacs-4/packages/datamanager/www/admin/import-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/admin/import-communities.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/admin/import-communities.tcl	22 Jun 2006 14:41:18 -0000	1.1
+++ openacs-4/packages/datamanager/www/admin/import-communities.tcl	3 Apr 2018 20:36:18 -0000	1.2
@@ -23,7 +23,7 @@
 set contbien 0
 set contmal 0 
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
   set sufix ""
 }
 
Index: openacs-4/packages/datamanager/www/admin/import-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/admin/import-users.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/admin/import-users.tcl	22 Jun 2006 14:41:18 -0000	1.1
+++ openacs-4/packages/datamanager/www/admin/import-users.tcl	3 Apr 2018 20:36:18 -0000	1.2
@@ -21,7 +21,7 @@
 set contbien 0
 set contmal 0 
 
-if {[info exist sufix] eq 0} {
+if {[info exists sufix] eq 0} {
   set sufix ""
 }
 
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	19 Jan 2018 12:59:10 -0000	1.14
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	3 Apr 2018 20:36:18 -0000	1.15
@@ -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-ecommerce/www/admin/course-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-info.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn-ecommerce/www/admin/course-info.tcl	6 Sep 2006 19:40:23 -0000	1.12
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-info.tcl	3 Apr 2018 20:36:18 -0000	1.13
@@ -50,7 +50,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-ecommerce/www/admin/course-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-list.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-ecommerce/www/admin/course-list.tcl	2 Sep 2008 21:51:04 -0000	1.4
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-list.tcl	3 Apr 2018 20:36:19 -0000	1.5
@@ -33,15 +33,15 @@
 }
 
 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 {
Index: openacs-4/packages/dotlrn-ecommerce/www/manage/course-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/course-info.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/manage/course-info.tcl	2 Sep 2008 21:54:48 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/manage/course-info.tcl	3 Apr 2018 20:36:19 -0000	1.2
@@ -51,7 +51,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-ecommerce/www/manage/course-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/course-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/manage/course-list.tcl	2 Sep 2008 21:54:48 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/manage/course-list.tcl	3 Apr 2018 20:36:19 -0000	1.2
@@ -33,15 +33,15 @@
 }
 
 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 {
Index: openacs-4/packages/invoices/lib/invoice-items-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/invoice-items-list.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/invoices/lib/invoice-items-list.tcl	5 Jun 2006 13:09:41 -0000	1.6
+++ openacs-4/packages/invoices/lib/invoice-items-list.tcl	3 Apr 2018 20:36:19 -0000	1.7
@@ -36,7 +36,7 @@
     }
 }
 
-if {![info exist filters_p] } { 
+if {![info exists filters_p] } { 
     set filters_p 1
 }
 
Index: openacs-4/packages/invoices/lib/offer-items-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/offer-items-list.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/invoices/lib/offer-items-list.tcl	5 Jun 2006 13:09:41 -0000	1.7
+++ openacs-4/packages/invoices/lib/offer-items-list.tcl	3 Apr 2018 20:36:19 -0000	1.8
@@ -36,7 +36,7 @@
     }
 }
 
-if {![info exist filters_p] } { 
+if {![info exists filters_p] } { 
     set filters_p 1
 }
 
Index: openacs-4/packages/lorsm/tcl/lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	16 Feb 2009 00:24:54 -0000	1.24
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	3 Apr 2018 20:36:19 -0000	1.25
@@ -575,7 +575,7 @@
                 set indent [expr [lindex $item 1] + 1]
 
                 foreach ims_item_id [db_list get_items {}] {
-                    if { ![info exist items_array($ims_item_id)] } {
+                    if { ![info exists items_array($ims_item_id)] } {
                         lappend items_list [list $ims_item_id $indent]
                         set items_array($ims_item_id) $indent
                         incr count
Index: openacs-4/packages/mmplayer/tcl/mmplayer-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/tcl/mmplayer-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/mmplayer/tcl/mmplayer-procs.tcl	22 Jun 2006 08:34:42 -0000	1.1
+++ openacs-4/packages/mmplayer/tcl/mmplayer-procs.tcl	3 Apr 2018 20:36:19 -0000	1.2
@@ -14,7 +14,7 @@
     @param community_id
 } {
 
-    if {[info exist community_id] == 0} {
+    if {[info exists community_id] == 0} {
         set community_id [dotlrn_community::get_community_id]
     }
     db_1row get_mmplayer_package_id {}
Index: openacs-4/packages/tracker/tcl/tracker-main-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tracker/tcl/tracker-main-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/tracker/tcl/tracker-main-procs.tcl	16 May 2007 09:25:37 -0000	1.1
+++ openacs-4/packages/tracker/tcl/tracker-main-procs.tcl	3 Apr 2018 20:36:19 -0000	1.2
@@ -73,7 +73,7 @@
     return filter_ok
 }
 
-if {[info exist tr_only_once] == 0} {
+if {[info exists tr_only_once] == 0} {
     ad_register_filter trace * *.html tr_trace_static_page 
     ad_register_filter trace * *.htm tr_trace_static_page 
     set tr_only_once 1
Index: openacs-4/packages/tsoap/tcl/http-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsoap/tcl/http-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/tsoap/tcl/http-procs.tcl	17 Mar 2005 17:59:32 -0000	1.1
+++ openacs-4/packages/tsoap/tcl/http-procs.tcl	3 Apr 2018 20:36:19 -0000	1.2
@@ -240,7 +240,7 @@
         }
         upvar \#0 $token state
         array set meta $state(meta)
-        if {![info exist meta(Location)]} {
+        if {![info exists meta(Location)]} {
             return $token
         }
         set url $meta(Location)
Index: openacs-4/packages/tsoap/tcl/https-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsoap/tcl/https-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/tsoap/tcl/https-procs.tcl	17 Mar 2005 17:59:32 -0000	1.1
+++ openacs-4/packages/tsoap/tcl/https-procs.tcl	3 Apr 2018 20:36:19 -0000	1.2
@@ -269,7 +269,7 @@
         }
         upvar #0 $token state
         array set meta $state(meta)
-        if {![info exist meta(Location)]} {
+        if {![info exists meta(Location)]} {
             return $token
         }
         set url $meta(Location)