Index: openacs-4/packages/diagram/tcl/diagram-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/diagram/tcl/diagram-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/diagram/tcl/diagram-procs.tcl	9 May 2018 15:33:30 -0000	1.5
+++ openacs-4/packages/diagram/tcl/diagram-procs.tcl	18 Apr 2022 08:47:17 -0000	1.6
@@ -529,16 +529,9 @@
     }
     set file_stub "[acs_root_dir]/packages/diagram/resources/diagram/$template"
 
-    # ensure that the template template has been compiled and is up-to-date
-    template::adp_init adp $file_stub
+    # ensure that the template template has been compiled and is up-to-date, and call it.
+    [template::adp_init adp $file_stub]
 
-    # get result of template output procedure into __adp_output
-    # the only data source on which this template depends is the "elements"
-    # multirow data source.  The output of this procedure will be
-    # placed in __adp_output in this stack frame.
-   
-    template::code::adp::$file_stub
-
     return $__adp_output
 }