Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	10 Oct 2003 12:00:38 -0000	1.14
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	29 Jan 2004 14:41:07 -0000	1.15
@@ -704,11 +704,11 @@
 
     # insert the case statement and eval the chunk in between
 
-    if ![string equal $value ""] {
+    if { ![string equal $value ""] } {
 
         # processing <case value= ...> form
 
-        template::adp_append_code "$value {" -nobreak        
+        template::adp_append_code "[list $value] {" -nobreak        
 
         template::adp_compile_chunk $chunk