Forum OpenACS Q&A: Error message when deleting applications

I recently started learning OpenACS. I want to delete the test stuff and start building my real application. When I tried to delete the applications that I had been using to learn how it works, I got this error message.

Server Error

There was a server error processing your request. We apologize.

Here is a detailed dump of what took place at the time of the error, which may assist a programmer in tracking down the problem:

wrong # args: should be "apm_package_key_from_id_mem package_id"
while executing
"apm_package_key_from_id_mem "
("eval" body line 1)
invoked from within
"eval $script"
invoked from within
"ns_cache eval util_memoize $script {
list $current_time [eval $script]
}"
(procedure "util_memoize" line 20)
invoked from within
"util_memoize "apm_package_key_from_id_mem $package_id""
(procedure "apm_package_key_from_id" line 2)
invoked from within
"apm_package_key_from_id $package_id"
(procedure "site_node::unmount" line 4)
invoked from within
"site_node::unmount -node_id $id"
("foreach" body line 5)
invoked from within
"foreach id $node_id {
lappend package_id [site_node::get_object_id -node_id $id]

# Unmount the application
site_node:..."
("uplevel" body line 2)
invoked from within
"uplevel 1 $transaction_code "
(procedure "db_transaction" line 39)
invoked from within
"db_transaction {
foreach id $node_id {
lappend package_id [site_node::get_object_id -node_id $id]

# Unmount the applicati..."
("uplevel" body line 33)
invoked from within
"uplevel {
ad_page_contract {
Delete an application.

@author Lars Pind (mailto:lars@collaboraid.biz)
@creation-date 2003-05-28
@cvs-id..."
(procedure "code::tcl::/var/lib/aolserver/biopharma/packages/acs-subsite..." line 2)
invoked from within
"code::tcl::$__adp_stub"
invoked from within
"if { [file exists $__adp_stub.tcl] } {

# ensure that data source preparation procedure exists and is up-to-date
adp_init tcl $__adp_stub
..."
("uplevel" body line 3)
invoked from within
"uplevel {

if { [file exists $__adp_stub.tcl] } {

# ensure that data source preparation procedure exists and is up-to-date
adp_init t..."
(procedure "adp_prepare" line 2)
invoked from within
"adp_prepare "
(procedure "template::adp_parse" line 30)
invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
(procedure "adp_parse_ad_conn_file" line 5)
invoked from within
"$handler"
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
$handler
} ad_script_abort val {
# do nothing
}"
invoked from within
"rp_serve_concrete_file [ad_conn file]"
(procedure "rp_serve_abstract_file" line 60)
invoked from within
"rp_serve_abstract_file "$root/$path""
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
rp_serve_abstract_file "$root/$path"
set tcl_url2file([ad_conn url]) [ad_conn file]
set tcl_url2path_info..."

TIA,
Ted