Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -N -r1.114.2.24 -r1.114.2.25
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	9 Apr 2021 17:17:52 -0000	1.114.2.24
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	1 Nov 2021 10:41:22 -0000	1.114.2.25
@@ -1831,27 +1831,11 @@
                         -authority_id $authority_id \
                         -impl_id $impl_id]
 
-    # See http://openacs.org/bugtracker/openacs/bug?format=table&f%5fstate=8&bug%5fnumber=2200
-    # Basically, we want upgrades to work, so we have to check for
-    # version number -jfr
-
-    set authentication_version [util_memoize [list apm_highest_version_name acs-authentication]]
-    set old_version_p [util_memoize [list apm_version_names_compare 5.1.3 $authentication_version]]
-
-    if {[string is true $old_version_p]} {
-        return [acs_sc::invoke \
-                    -error \
-                    -impl_id $impl_id \
-                    -operation Authenticate \
-                    -call_args [list $username $password $parameters]]
-
-    } else {
-        return [acs_sc::invoke \
-                    -error \
-                    -impl_id $impl_id \
-                    -operation Authenticate \
-                    -call_args [list $username $password $parameters $authority_id]]
-    }
+    return [acs_sc::invoke \
+                -error \
+                -impl_id $impl_id \
+                -operation Authenticate \
+                -call_args [list $username $password $parameters $authority_id]]
 }
 
 # ad_proc -deprecated auth::authentication::Authenticate args {