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.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	28 Apr 2003 23:48:00 -0000	1.4.2.1
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	7 Jun 2003 01:47:33 -0000	1.4.2.2
@@ -1,7 +1,7 @@
 ad_library {
     UI widgets for use in forms, etc.
 
-    @cvs-id $Id$
+    @cvs-id widgets-procs.tcl,v 1.4.2.1 2003/04/28 23:48:00 jong Exp
 }
 
 proc_doc state_widget { {default ""} {select_name "usps_abbrev"}} "Returns a state selection box" {
@@ -28,7 +28,7 @@
 
     set widget_value "<select name=\"$select_name\" $size_subtag>\n"
     if { $default == "" } {
-        if [ad_parameter SomeAmericanReadersP] {
+        if { [ad_parameter SomeAmericanReadersP] } {
 	    append widget_value "<option value=\"\">Choose a Country</option>
 <option value=\"us\" selected=\"selected\">United States</option>\n"
 	} else {
@@ -260,7 +260,7 @@
 
     set widget_value "<select name=\"$select_name\" $size_subtag>\n"
     if { $default == "" } {
-        if [ad_parameter SomeAmericanReadersP] {
+        if { [ad_parameter SomeAmericanReadersP] } {
 	    append widget_value "<option value=\"\">Currency</option>
 <option value=\"USD\" selected=\"selected\">United States Dollar</option>\n"
 	} else {