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.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	6 Sep 2001 19:32:18 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	16 Sep 2001 01:06:52 -0000	1.3
@@ -410,11 +410,11 @@
 }
 
 ad_proc -public ad_parameter {
-    { 
-	-set "" 
-	-package_id "" 
-    }
-    name {package_key ""} {default ""}
+    -set
+    {-package_id ""}
+    name
+    {package_key ""}
+    {default ""}
 } {
     Package instances can have parameters associated with them.  This function is used for accessing  
     and setting these values.  Parameter values are stored in the database and cached within memory.
@@ -436,7 +436,7 @@
 	set package_id [ad_requested_object_id] } {
     }
 
-    if { ![empty_string_p $set] } {
+    if { [info exists set] } {
 	if { ![empty_string_p $package_id] } {
 	    # Write to the database.
 	    db_exec_plsql ad_parameter_set {