Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.23 -r1.23.2.1
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	14 Sep 2002 16:29:30 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	28 Feb 2003 00:07:23 -0000	1.23.2.1
@@ -807,6 +807,9 @@
 
 ad_proc -public apm_package_url_from_key_mem {package_key} {
     set package_id [apm_package_id_from_key $package_key]
+    if {!$package_id} { 
+        return -code error -errorinfo "Package $package_key was not found.  May not be mounted."
+    } 
     return [apm_package_url_from_id $package_id]
 }