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 -N -r1.25 -r1.26
--- openacs-4/packages/xotcl-core/www/show-object.tcl	9 May 2018 15:33:34 -0000	1.25
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	9 Sep 2018 13:10:55 -0000	1.26
@@ -429,7 +429,12 @@
     set f [open $tmpnam.dot w]; puts $f $dot_code; close $f
 
     #ns_log notice "svg $tmpnam dot $tmpnam.dot"
-    set f [open "|$dot  -Tsvg -o $tmpfile" w]; puts $f $dot_code; close $f
+    set f [open "|$dot  -Tsvg -o $tmpfile" 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
 
     # delete the first three lines generated from dot