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.40 -r1.41
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	5 Apr 2003 09:23:16 -0000	1.40
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	18 Jun 2003 13:11:48 -0000	1.41
@@ -675,7 +675,10 @@
 	    apm_callback_and_log $callback "<li>Unable to delete [acs_package_root_dir $package_key]:<font color=red>$error</font>"
 	}
     }
-    
+
+    # Flush the installed_p cache
+    util_memoize_flush [list apm_package_installed_p_not_cached $package_key]
+
     apm_callback_and_log $callback "<p>Done."
 }
 
@@ -1364,25 +1367,30 @@
     
     <blockquote><pre>
 
-    apm_upgrade_logic \ 
-            -from_version_name $from \ 
-            -to_version_name $to \ 
-            -spec {
-        1.1 1.2 {
-            ...
+    ad_proc my_upgrade_callback {
+        {-from_version_name:required}
+        {-to_version_name:required}
+    } {
+        apm_upgrade_logic \ 
+                -from_version_name $from_version_name \ 
+                -to_version_name $to_version_name \ 
+                -spec {
+            1.1 1.2 {
+                ...
+            }
+            1.2 1.3 {
+                ...
+            }
+            1.4d 1.4d1 {
+                ...
+            }
+            2.1 2.3 {
+                ...
+            }
+            2.3 2.4 {
+                ...
+            }
         }
-        1.2 1.3 {
-            ...
-        }
-        1.4d 1.4d1 {
-            ...
-        }
-        2.1 2.3 {
-            ...
-        }
-        2.3 2.4 {
-            ...
-        }
     }
     
     </pre></blockquote>