Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -r1.30.2.3 -r1.30.2.4
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	23 Mar 2023 12:35:43 -0000	1.30.2.3
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	4 Jun 2024 12:20:27 -0000	1.30.2.4
@@ -24,23 +24,6 @@
     return "filter_return"
 }
 
-ad_proc -deprecated ad_approval_system_inuse_p {} {
-    Returns 1 if the system is configured to use and approval system.
-
-    DEPRECATED: this proc's utility was probably transitional and is
-    as of 2022-09-07 not used anywhere in the codebase. One can always
-    query the parameters directly in case.
-
-    @see parameter::get
-} {
-    if {[parameter::get -parameter RegistrationRequiresEmailVerification] &&
-        [parameter::get -parameter RegistrationRequiresApprovalP] } {
-        return 1
-    } else {
-        return 0
-    }
-}
-
 ad_proc -private ad_user_class_parameters {} {
     Returns the list of parameter var names used to define a user class.
 } {
Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -r1.29.2.29 -r1.29.2.30
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	28 Sep 2022 08:20:28 -0000	1.29.2.29
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	4 Jun 2024 12:20:27 -0000	1.29.2.30
@@ -27,6 +27,23 @@
 ns_log notice "deprecated-procs: load deprecated code"
 
 
+ad_proc -deprecated ad_approval_system_inuse_p {} {
+    Returns 1 if the system is configured to use and approval system.
+
+    DEPRECATED: this proc's utility was probably transitional and is
+    as of 2022-09-07 not used anywhere in the codebase. One can always
+    query the parameters directly in case.
+
+    @see parameter::get
+} {
+    if {[parameter::get -parameter RegistrationRequiresEmailVerification] &&
+        [parameter::get -parameter RegistrationRequiresApprovalP] } {
+        return 1
+    } else {
+        return 0
+    }
+}
+
 ad_proc -public -deprecated ad_set_typed_form_variable_filter {
     url_pattern
     args