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.2 -r1.1.2.3
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	18 Aug 2004 17:31:03 -0000	1.1.2.2
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	18 Aug 2004 20:03:11 -0000	1.1.2.3
@@ -323,13 +323,13 @@
                 }
             }
             if { [exists_and_not_null multiple_p] } {
-                if { $multiple_p } { 
+                if { [string is true $multiple_p] } { 
                     append widget_string ",multiple"
                 }
             }
 
             if { [exists_and_not_null nospell_p] } {
-                if { $nospell_p } { 
+                if { [string is true $nospell_p] } { 
                     append widget_string ",nospell"
                 }
             }
@@ -347,7 +347,7 @@
             }
 
             if { [exists_and_not_null help_p] } {
-                if { $help_p } {
+                if { [string is true $help_p] } {
                     lappend temp_element "help"
                 }
             }