Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/ams/tcl/ams-procs.tcl	31 Oct 2005 16:00:21 -0000	1.30
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	2 Nov 2005 20:19:55 -0000	1.31
@@ -490,7 +490,15 @@
 		set pretty_name     [lindex $attribute 3]
 		set widget          [lindex $attribute 4]
 		set value           [lindex $attribute 5]
-
+		
+		set val [list]
+		if { [regexp "\{text/.*\}" $value value_format] } {
+		    lappend val [lindex $value_format 0]
+		    lappend val [list [string range $value [expr [string length $value_format] + 1] [string length $value]]]
+		} else {
+		    set val $value
+		}
+	    
 		if { [exists_and_not_null section_heading] } {
 		    set heading $section_heading
 		}
@@ -500,7 +508,8 @@
 									      -request "value_${format}" \
 									      -attribute_name $attribute_name \
 									      -attribute_id $attribute_id \
-									      -value $value -locale $locale]
+									      -value $value \
+									      -locale $locale]
 
 		    ns_log Notice "$attribute_name ($attribute_id):: $value"
 		}