Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/xotcl-core/xotcl-core.info	16 Jun 2008 12:01:02 -0000	1.51
+++ openacs-4/packages/xotcl-core/xotcl-core.info	25 Aug 2008 11:30:26 -0000	1.52
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.87" url="http://media.wu-wien.ac.at/download/xotcl-core-0.87.apm">
+    <version name="0.88" url="http://media.wu-wien.ac.at/download/xotcl-core-0.88.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2008-04-05</release-date>
+        <release-date>2008-08-25</release-date>
         <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
@@ -41,10 +41,11 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.87"/>
+        <provides url="xotcl-core" version="0.88"/>
 
         <callbacks>
-            <callback type="before-install"  proc="::xotcl::before_install_callback"/>
+            <callback type="before-install"  proc="::xotcl-core::before_install_callback"/>
+            <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
         </callbacks>
         <parameters>
         <!-- No version parameters -->
Index: openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl	29 Feb 2008 22:43:36 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl	25 Aug 2008 11:30:26 -0000	1.4
@@ -1,19 +1,49 @@
-namespace eval ::xotcl {}
+namespace eval ::xotcl-core {
 
-ad_proc ::xotcl::before_install_callback {} {
+  ad_proc ::xotcl-core::before_install_callback {} {
   
-  Callback for checking whether xotcl is installed for OpenACS
-  
-  @author Gustaf Neumann (neumann@wu-wien.ac.at)
-} {
-  ns_log notice "-- before-install callback"
-  if {[info command ::xotcl::Class] eq ""} {
-    error " XOTcl does not appear to be installed on your system!\n\
+    Callback for checking whether xotcl is installed for OpenACS
+    
+    @author Gustaf Neumann (neumann@wu-wien.ac.at)
+  } {
+    ns_log notice "-- before-install callback"
+    if {[info command ::xotcl::Class] eq ""} {
+      error " XOTcl does not appear to be installed on your system!\n\
      Please follow the install instructions on http://www.openacs.org/xowiki/xotcl-core"
-  } elseif {$::xotcl::version < 1.5} {
-    error " XOTcl 1.5 or newer required. You are using $::xotcl::version$::xotcl::patchlevel.\n\
+    } elseif {$::xotcl::version < 1.5} {
+      error " XOTcl 1.5 or newer required. You are using $::xotcl::version$::xotcl::patchlevel.\n\
 	Please install a new version of XOTcl (see http://www.openacs.org/xowiki/xotcl-core)"
-  } else {
-    ns_log notice "XOTcl $::xotcl::version$::xotcl::patchlevel is installed on your system."
+    } else {
+      ns_log notice "XOTcl $::xotcl::version$::xotcl::patchlevel is installed on your system."
+    }
   }
-}
+  
+  ad_proc ::xotcl-core::after_upgrade_callback {
+    {-from_version_name:required}
+    {-to_version_name:required}
+  } {
+    
+    Callback for upgrading
+    
+    @author Gustaf Neumann (neumann@wu-wien.ac.at)
+  } {
+    ns_log notice "-- UPGRADE $from_version_name -> $to_version_name"
+    set v 0.88
+    if {[apm_version_names_compare $from_version_name $v] == -1 &&
+        [apm_version_names_compare $to_version_name $v] > -1} {
+      ns_log notice "-- upgrading to $v"
+      set dir [acs_package_root_dir xotcl-core]
+      foreach file {
+        tcl/05-doc-procs.tcl 
+        tcl/10-recreation-procs.tcl-old
+        tcl/thread_mod-procs.tcl 
+      } {
+        if {[file exists $dir/$file]} {
+          ns_log notice "Deleting obsolete file $dir/$file"
+          file delete $dir/$file
+        }
+      }
+    }
+  }
+
+}
\ No newline at end of file