Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -N -r1.48 -r1.49
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	9 Nov 2008 23:29:22 -0000	1.48
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	21 Dec 2008 18:09:53 -0000	1.49
@@ -216,7 +216,7 @@
              }
          }
 
-         if { [ad_parameter -package_id [ds_instance_id] ShowCommentsInlineP acs-developer-support 0] } {
+         if { [parameter::get -package_id [ds_instance_id] -parameter ShowCommentsInlineP -default 0] } {
              append out "Comments: <b>On</b> | <a href=\"[export_vars -base "${ds_url}comments-toggle" { { return_url [ad_return_url] } }]\">Off</a><br>"
              if { [nsv_exists ds_request "$ad_conn(request).comment"] } {
                  foreach comment [nsv_get ds_request "$ad_conn(request).comment"] {
@@ -373,7 +373,7 @@
 
  ad_proc -private ds_sweep_data {} {
      set now [ns_time]
-     set lifetime [ad_parameter -package_id [ds_instance_id] DataLifetime acs-developer-support 900]
+     set lifetime [parameter::get -package_id [ds_instance_id] -parameter DataLifetime -default 900]
 
      # Find the last request before the DataLifetime cutoff