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 -N -r1.216.2.7 -r1.216.2.8
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	1 Sep 2020 17:24:47 -0000	1.216.2.7
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	3 Sep 2020 09:16:42 -0000	1.216.2.8
@@ -2489,15 +2489,15 @@
 
 } {
     set ds_id [get_datasource_id $portlet_name]
-    return [db_string portlet_visible {
-        select case when exists (select 1
-                       from portal_element_map,
-                       portal_pages
-                       where portal_pages.portal_id = :portal_id
-                       and portal_element_map.datasource_id = :ds_id
-                       and portal_element_map.page_id = portal_pages.page_id
-                       and portal_element_map.state <> 'hidden') then 1 else 0 end
-        from dual
+    return [db_0or1row portlet_visible {
+        select 1 from dual where exists
+        (
+         select 1 from portal_element_map,portal_pages
+         where portal_pages.portal_id = :portal_id
+         and portal_element_map.datasource_id = :ds_id
+         and portal_element_map.page_id = portal_pages.page_id
+         and portal_element_map.state <> 'hidden'
+        )
     }]
 }