Index: openacs-4/packages/acs-templating/tcl/head-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/head-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-templating/tcl/head-procs.tcl	15 Sep 2007 07:22:40 -0000	1.1
+++ openacs-4/packages/acs-templating/tcl/head-procs.tcl	6 Oct 2007 13:22:55 -0000	1.2
@@ -342,16 +342,19 @@
         if {$html eq ""} {
             error "You must supply either -src or -html."
         }
-
         set values [list literal $html ""]
     } else {
         set values [list include $src $params]
     }
 
-    if {$direction eq "outer"} {
-        set headers [concat [list $values] $headers]
+    if {[info exists headers]} {
+      switch $direction {
+	outer {set headers [concat [list $values] $headers]}
+	inner {lappend headers $values}
+	default {error "unknown direction $direction"}
+      }
     } else {
-        lappend headers $values
+      set headers [list $values]
     }
 }
 
@@ -384,15 +387,18 @@
         if {$html eq ""} {
             error "You must supply either -src or -html."
         }
-
         set values [list literal $html ""]
     } else {
         set values [list include $src $params]
     }
 
-    if {$direction eq "outer"} {
-        lappend footers $values
+    if {[info exists footers]} {
+      switch $direction {
+	outer {lappend footers $values}
+	inner {set footers [concat [list $values] $footers]}
+	default {error "unknown direction $direction"}
+      }
     } else {
-        set footers [concat [list $values] $headers]
+      set footers [list $values]
     }
 }