Index: openacs-4/packages/clickthrough/tcl/clickthrough-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/clickthrough/tcl/clickthrough-init.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/clickthrough/tcl/clickthrough-init.tcl	2 Feb 2002 22:17:28 -0000	1.4
+++ openacs-4/packages/clickthrough/tcl/clickthrough-init.tcl	23 Feb 2002 02:43:45 -0000	1.5
@@ -15,6 +15,9 @@
     nsv_set clickthrough_mutex mutex [ns_mutex create]
 
     # schedule cache sweeper to run every X seconds
-    ad_schedule_proc [ad_parameter -package_id [apm_package_id_from_key clickthrough] CacheSweeperInterval] clickthrough_cache_sweeper
+    # if a clickthrough application has been created.
+    if { [apm_package_id_from_key clickthrough] != 0 } {
+        ad_schedule_proc [ad_parameter -package_id [apm_package_id_from_key clickthrough] CacheSweeperInterval] clickthrough_cache_sweeper
+    }
 }