Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	25 Jul 2018 18:27:52 -0000	1.35
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	4 Oct 2018 10:07:02 -0000	1.36
@@ -553,8 +553,13 @@
 } {
     Get authority_id by short_name. Not cached.
 } {
-    return [db_string select_authority_id {} -default {}]
+    return [db_string select_authority_id {
+        select authority_id 
+        from   auth_authorities 
+        where  short_name = :short_name
+    } -default {}]
 }
+
 ad_proc -public auth::authority::local {} {
     Returns the authority_id of the local authority.
 } {