Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/www/blank-master.tcl	3 Dec 2007 20:29:30 -0000	1.32
+++ openacs-4/www/blank-master.tcl	6 Dec 2007 17:02:24 -0000	1.33
@@ -173,9 +173,9 @@
 if {[info exists focus] && $focus ne ""} {
     # Handle elements where the name contains a dot
     if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } {
-        template::head::add_body_handler \
+        template::add_body_handler \
             -event onload \
-            -script "acs_Focus('${form_name}', '${element_name}');"
+            -script "acs_Focus('${form_name}', '${element_name}');" \
             -identifier "focus"
     }
 }