Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.67.2.21 -r1.67.2.22
--- openacs-4/packages/acs-tcl/acs-tcl.info	24 Jun 2015 09:27:25 -0000	1.67.2.21
+++ openacs-4/packages/acs-tcl/acs-tcl.info	13 Oct 2015 10:03:11 -0000	1.67.2.22
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.8.3d3" url="http://openacs.org/repository/download/apm/acs-tcl-5.8.3d3.apm">
+    <version name="5.8.3d4" url="http://openacs.org/repository/download/apm/acs-tcl-5.8.3d4.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>The Kernel Tcl API library.</summary>
         <release-date>2015-05-15</release-date>
@@ -17,7 +17,7 @@
         <description format="text/html">Contains all the core Tcl API, including the request processor, security and session management, permissions, site-nodes, package management infrastructure, etc.</description>
         <license>GPL version 2</license>
 
-        <provides url="acs-tcl" version="5.8.3d3"/>
+        <provides url="acs-tcl" version="5.8.3d4"/>
         <requires url="acs-bootstrap-installer" version="5.8.1"/>
         <requires url="acs-kernel" version="5.8.1"/>
 
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.108.2.25 -r1.108.2.26
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	8 Sep 2014 07:11:06 -0000	1.108.2.25
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	13 Oct 2015 10:03:11 -0000	1.108.2.26
@@ -2199,13 +2199,17 @@
     set repositories ""
     dom parse -simple -html [dict get $result page] doc
     $doc documentElement root
-    foreach node [$root selectNodes //ul/li] {
-        set txt [$node asText]
-        if {![regexp {^(\S+)\s[\(]([^\)]+)\)} $txt _ name tag]} {
+    foreach node [$root selectNodes {//ul/li/a}] {
+        set href [$node getAttribute href]
+        if {[regexp {(\d+[-]\d+)} $href . version]} {
+            set name $version
+            set tag oacs-$version
+            lappend repositories [list $name $tag]
+        } else {
+            set txt [string trim [$node asText]]
             ns_log warning "unexpected li found in repository $repository_url: $txt"
             continue
         }
-        lappend repositories [list $name $tag]
     }
     return $repositories
 }