Index: openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl	27 Sep 2018 09:01:24 -0000	1.2
+++ openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl	4 Sep 2019 17:38:04 -0000	1.2.2.1
@@ -9,11 +9,14 @@
 namespace eval acs_admin {
 
     ad_proc ::acs_admin::check_expired_certificates {} {
+        Check expire-dates of certificates and send warning emails to
+        the admin. In case HTTPS is not configured via the "nsssl"
+        driver, or the command line tool "openssl" openssl is
+        installed, the proc does nothing.
 
-        Check expire-dates of certificates and send warning
-        emails to the admin. In case HTTPS is not configured via the
-        "nsssl" driver, or the command line tool "openssl" openssl is
-        installed, the proc does nothing.  } {
+        @return boolean telling whether expired certificates existed
+        (true) or not (false)
+    } {
 
         set openssl [util::which openssl]
         if {[info commands ns_driver] ne "" && $openssl ne ""} {
@@ -77,6 +80,8 @@
                                    "Your friendly daemon" \n]
                 }
             }
+
+            return [expr {[llength $critCertInfo] > 0}]
         }
     }
 }