Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -N -r1.64.2.1 -r1.64.2.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	4 Apr 2019 08:26:32 -0000	1.64.2.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	1 Sep 2020 17:12:59 -0000	1.64.2.2
@@ -74,9 +74,9 @@
         check if a user is a dotLRN user
     } {
         return [db_string select_exists {
-            select exists (select 1
-                           from dotlrn_users
-                           where user_id = :user_id)
+            select case when exists (select 1
+                                     from dotlrn_users
+                                     where user_id = :user_id) then 1 else 0
             from dual
         }]
     }