Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	12 Aug 2004 17:38:40 -0000	1.1.2.1
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	18 Aug 2004 17:31:03 -0000	1.1.2.2
@@ -318,7 +318,7 @@
             if { ![exists_and_not_null required_p] } {
                 append widget_string ",optional"
             } else {
-                 if { !$required_p } { 
+                if { [string is false $required_p] } { 
                     append widget_string ",optional"
                 }
             }