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.15.2.7 -r1.15.2.8
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	13 May 2003 20:33:10 -0000	1.15.2.7
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	12 Jun 2003 08:27:42 -0000	1.15.2.8
@@ -1356,25 +1356,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
+        to
+    } {
+        apm_upgrade_logic \ 
+                -from_version_name $from \ 
+                -to_version_name $to \ 
+                -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>