Index: openacs-4/contrib/packages/survey/tcl/survey-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/tcl/Attic/survey-form-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/contrib/packages/survey/tcl/survey-form-procs.tcl	2 Sep 2004 15:32:18 -0000	1.1.2.1
+++ openacs-4/contrib/packages/survey/tcl/survey-form-procs.tcl	1 Jan 2005 17:39:00 -0000	1.1.2.2
@@ -428,9 +428,9 @@
             }
         }
     }
-
+    set optional ""
     if {!$required_p} {
-        lappend element_param_list [list optional 1]
+        set optional ",optional"
     }
 
     if {[string equal $mode display]} {
@@ -443,7 +443,7 @@
 
     lappend element_param_list [list label $question_text]
 
-    set element_params [concat [list "$element_name:$element_type"] $element_param_list]
+    set element_params [concat [list "${element_name}:${element_type}${optional}"] $element_param_list]
 
     ns_log Notice "\nDEDS\nediting? $edit_previous_response_p\ncreating element using -- $element_params"