Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.tcl	2 Feb 2018 00:05:53 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.tcl	7 Apr 2018 17:48:39 -0000	1.15
@@ -31,7 +31,7 @@
 set dimensional_list [apm_parameter_section_slider $package_key]
 set additional_sql ""
 
-if {([info exists dimensional_list] && $dimensional_list ne "") } {
+if {$dimensional_list ne "" } {
     lappend table_def [list section_name "Section:"]
     append additional_sql [ad_dimensional_sql $dimensional_list]
     ns_log Notice [ad_dimensional_sql $dimensional_list]
Index: openacs-4/packages/acs-subsite/www/permissions/grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	7 Aug 2017 23:47:59 -0000	1.17
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	7 Apr 2018 17:48:39 -0000	1.18
@@ -163,7 +163,7 @@
         }
     }
     
-    if {([info exists return_url] && $return_url ne "")} {
+    if {$return_url ne ""} {
         ad_returnredirect $return_url
     } else {
         ad_returnredirect [export_vars -base one {object_id application_url}]