Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	18 Nov 2001 12:07:09 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	20 Nov 2001 17:46:28 -0000	1.5
@@ -498,11 +498,11 @@
 
 
 ad_proc -private ad_parameter_cache {
-    {
-	-set ""
-	-delete:boolean
-    }
-    package_id parameter_name} {
+    -set
+    -delete:boolean
+    package_id
+    parameter_name
+} {
     
     Manages the cache for ad_paremeter.
     @param -set Use this flag to indicate a value to set in the cache.
@@ -517,7 +517,7 @@
 	}
 	return
     }
-    if {![empty_string_p $set] } {
+    if {[info exists set]} {
 	ns_log Notice "Caching $parameter_name for $package_id to $set"
 	nsv_set "ad_param_$package_id" $parameter_name $set
 	return $set