Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	7 Feb 2004 11:47:34 -0000	1.33
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	25 Mar 2004 21:51:24 -0000	1.34
@@ -236,7 +236,7 @@
 
   if { ![string equal $mode "edit"] } {
     set output {}
-    if { ![empty_string_p value] } {
+    if { ![empty_string_p $value] } {
       append output "[ad_quotehtml $value]<input type=\"hidden\" name=\"$name\" value=\"[ad_quotehtml $value]\">"
     }
   } else {