Index: openacs-4/packages/cms/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/publish-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/cms/tcl/publish-procs.tcl	16 Sep 2002 10:56:14 -0000	1.10
+++ openacs-4/packages/cms/tcl/publish-procs.tcl	30 Nov 2002 17:29:11 -0000	1.11
@@ -418,7 +418,12 @@
   if { [template::util::is_nil interval] } {
     # Kludge: relies on that CMS is a singleton package
     set package_id [apm_package_id_from_key "cms"]
-    set interval [ad_parameter -package_id $package_id StatusSweepInterval 3600]
+    if { ![template::util::is_nil package_id] } {
+      set interval [ad_parameter -package_id $package_id StatusSweepInterval 3600]
+    } else { 
+      ns_log Warning "Unable to lookup package_id for cms in publish::schedule_status_sweep defaulting to interval 3600"
+      set interval 3600
+    } 
   }
 
   ns_log notice "CMS publish::schedule_status_sweep: Scheduling status sweep every $interval seconds"