Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v diff -u -r1.28 -r1.29 --- openacs-4/packages/acs-templating/tcl/parse-procs.tcl 19 Mar 2004 23:31:32 -0000 1.28 +++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl 24 Mar 2004 10:34:30 -0000 1.29 @@ -326,15 +326,14 @@ # same frame as the code that outputs the template. - # Here we add profiling calls in developer support exists on the - # system. - if {[llength [info procs ds_enabled_p]]} { - proc ::template::code::${type}::$file_stub {} " - if {\[ds_enabled_p\] && \[ds_collection_enabled_p\]} { ds_profile start $file_stub.$type } - uplevel { - $code - } - if {\[ds_enabled_p\] && \[ds_collection_enabled_p\]} { ds_profile stop $file_stub.$type }\n" + # Here we add profiling calls if developer support exists on the + # system. + if {[llength [info procs ::ds_enabled_p]]} { + proc ::template::code::${type}::$file_stub {} "if {\[::ds_enabled_p\] && \[::ds_collection_enabled_p\]} { ds_profile start $file_stub.$type } +uplevel { +$code +} +if {\[::ds_enabled_p\] && \[::ds_collection_enabled_p\]} { ds_profile stop $file_stub.$type }\n" } else { proc ::template::code::${type}::$file_stub {} " uplevel {