Index: openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl,v
diff -u -N -r1.7.12.1 -r1.7.12.2
--- openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl	27 Sep 2013 18:47:52 -0000	1.7.12.1
+++ openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl	28 Sep 2013 12:09:59 -0000	1.7.12.2
@@ -24,14 +24,17 @@
     set title "Delete"
     set context [list [list "/acs-admin/apm/" "Package Manager"] $title]
     set body ""
+    set ::__apm_body ""
     if { [catch {apm_package_delete \
 		     -sql_drop_scripts $sql_drop_scripts \
 		     -remove_files=0 \
-		     -callback apm_doc_body_callback $package_key} errmsg] } {
+		     -callback apm_body_callback $package_key} errmsg] } {
 	append body [subst {
 	    We encountered the following error when deleting package "$package_key":
 	    <pre><blockquote>[ad_quotehtml $errmsg]</blockquote></pre>
 	}]
+	append body $::__apm_body
+	
     } else {
 	append body {
 	    </ul>
@@ -42,5 +45,7 @@
     }
 }
 
+ad_return_template apm
 
 
+