Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.208 -r1.209
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	30 Jun 2018 22:04:28 -0000	1.208
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	9 Jul 2018 11:48:01 -0000	1.209
@@ -2104,11 +2104,7 @@
     @return 1 on success, 0 on failure
     @param a portal_id
 } {
-    if { [db_0or1row select {} ]} {
-        return 1
-    } else {
-        return 0
-    }
+    return [db_0or1row select {}]
 }
 
 ad_proc -public portal::add_element_parameters {
@@ -2501,11 +2497,7 @@
 
 } {
     set ds_id [get_datasource_id $portlet_name]
-    if {[db_string portlet_visible "" -default 0]} {
-        return 1
-    } else {
-        return 0
-    }
+    return [db_string portlet_visible {}]
 }
 
 # Local variables: