Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/tag-procs.tcl	13 Dec 2001 17:25:26 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl	17 Feb 2002 13:53:31 -0000	1.5
@@ -72,7 +72,13 @@
   set size [ns_set size $params]
 
   for { set i 0 } { $i < $size } { incr i } {
-    lappend tokens [ns_set key $params $i]
+     set key [ns_set key $params $i]
+     set value [ns_set value $params $i]
+     if { [string equal $key $value] } {
+       lappend tokens $key
+     } else {
+       lappend tokens "$key=$value"
+     }
   }
 
   set tokens [eval [concat list [join $tokens " "]]]