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 -r1.64 -r1.64.2.1
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	18 Sep 2018 17:27:14 -0000	1.64
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	4 Apr 2019 08:26:32 -0000	1.64.2.1
@@ -73,12 +73,11 @@
     } {
         check if a user is a dotLRN user
     } {
-        return [db_string select_count {
-            select count(*)
+        return [db_string select_exists {
+            select exists (select 1
+                           from dotlrn_users
+                           where user_id = :user_id)
             from dual
-            where exists (select 1
-                          from dotlrn_users
-                          where user_id = :user_id)
         }]
     }