Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/tcl/apm-admin-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.5 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/tcl/apm-admin-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	7 Aug 2017 23:47:45 -0000	1.21
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	25 Sep 2017 15:43:13 -0000	1.22
@@ -207,15 +207,11 @@
     <li>1 if the version you gave is higher than the highest version installed, or no version of this package is installed.
     </ul>
 } {
-
-    # DRB: I turned this into a simple select by rearranging the code and
-    # stuck the result into queryfiles.
-
-    # LARS: Default to 1 (the package_key/version_name you supplied was higher than what's on the system)
-    # for the case where nothing it returned, because this implies that there was no highest version installed,
-    # i.e., no version at all of the package was installed.
-
-    return [db_string apm_higher_version_installed_p {} -default 1]
+    set package_version_name [apm_highest_version_name $package_key]
+    if {$package_version_name eq ""} {
+        return 1
+    }
+    return [apm_version_names_compare $version_name $package_version_name]
 }