Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	29 Jul 2008 22:04:14 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	23 Dec 2008 12:23:00 -0000	1.12
@@ -28,7 +28,7 @@
 
     set widget_value "<select name=\"$select_name\" $size_subtag>\n"
     if { $default eq "" } {
-        if { [ad_parameter SomeAmericanReadersP] } {
+        if { [parameter::get -parameter SomeAmericanReadersP] } {
 	    append widget_value "<option value=\"\">Choose a Country</option>
 <option value=\"us\" selected=\"selected\">United States</option>\n"
 	} else {
@@ -262,7 +262,7 @@
 
     set widget_value "<select name=\"$select_name\" $size_subtag>\n"
     if { $default eq "" } {
-        if { [ad_parameter SomeAmericanReadersP] } {
+        if { [parameter::get -parameter SomeAmericanReadersP] } {
 	    append widget_value "<option value=\"\">Currency</option>
 <option value=\"USD\" selected=\"selected\">United States Dollar</option>\n"
 	} else {