Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.109.2.13 -r1.109.2.14
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	16 Nov 2016 19:06:04 -0000	1.109.2.13
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	16 Nov 2016 19:08:47 -0000	1.109.2.14
@@ -1890,19 +1890,8 @@
 
     @author Lars Pind
 } {
-    regsub -all {[^0-9]+} $version_name_1 {.} version_name_1
-    regsub -all {[^0-9]+} $version_name_2 {.} version_name_2
-
-    foreach token_1 [split $version_name_1 .] token_2 [split $version_name_2 .] {
-        if {$token_1 eq ""} {set token_1 0}
-        if {$token_2 eq ""} {set token_2 0}
-        if {$token_1 > $token_2} {return  1}
-        if {$token_2 > $token_1} {return -1}
-    }
-
-    return 0   
-    # db_1row select_sortable_versions {}
-    # return [string compare $sortable_version_1 $sortable_version_2]
+    db_1row select_sortable_versions {}
+    return [string compare $sortable_version_1 $sortable_version_2]
 }
 
 ad_proc -private apm_upgrade_logic_compare {