Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -r1.27.2.5 -r1.27.2.6
--- openacs-4/packages/xotcl-core/www/show-object.tcl	8 Aug 2020 08:08:20 -0000	1.27.2.5
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	2 Aug 2021 21:16:33 -0000	1.27.2.6
@@ -428,18 +428,16 @@
     #ad_script_abort
   } else {
 
-    set tmpnam [ad_tmpnam]
-    set tmpfile $tmpnam.svg
-    set f [open $tmpnam.dot w]; puts $f $dot_code; close $f
+    set svgfile [ad_tmpnam].svg
+    #ns_log notice "svg $svgfile"
 
-    #ns_log notice "svg $tmpnam dot $tmpnam.dot"
-    set f [open "|$dot  -Tsvg -o $tmpfile" w]; puts $f $dot_code
+    set f [open "|$dot  -Tsvg -o $svgfile" w]; puts $f $dot_code
     try {
       close $f
     } on error {errorMsg} {
       ns_log warning "dot returned $errorMsg"
     }
-    set f [open  $tmpfile]; set svg [read $f]; close $f
+    set f [open $svgfile]; set svg [read $f]; close $f
 
     # delete the first three lines generated from dot
     regsub {^[^\n]+\n[^\n]+\n[^\n]+\n} $svg "" svg
@@ -449,8 +447,8 @@
     }
     set svg "<style>$css</style><div><div class='inner'>$svg</div></div>"
 
-    file delete -- $tmpfile
-    file delete -- $tmpnam.dot
+    file delete -- $svgfile
+    #file delete -- $dotfile
   }
 }