Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.101 -r1.189.2.102
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	24 Sep 2021 11:38:33 -0000	1.189.2.101
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	6 Oct 2021 12:21:20 -0000	1.189.2.102
@@ -4025,11 +4025,12 @@
             if {![ad_file exists $stem.svg]} {
                 ns_log notice "inline_svg_from_dot: generate $stem.svg"
 
-                set f [open $stem.dot w]; puts $f $dot_code; close $f
+                set dotfile $stem.dot
+                set svgfile $stem.svg
+                set f [open $dotfile w]; puts $f $dot_code; close $f
 
-                set f [open "|$dot -Tsvg -o $stem.svg" w]; puts $f $dot_code
                 try {
-                    close $f
+                    exec $dot -Tsvg -o $svgfile $dotfile
                 } on error {errorMsg} {
                     ns_log warning "inline_svg_from_dot: dot returned $errorMsg"
                 } on ok {result} {