Index: openacs-4/packages/xotcl-core/www/show-class-graph.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-class-graph.tcl,v
diff -u -N -r1.12.2.5 -r1.12.2.6
--- openacs-4/packages/xotcl-core/www/show-class-graph.tcl	29 Nov 2021 13:20:11 -0000	1.12.2.5
+++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl	26 Nov 2022 17:00:30 -0000	1.12.2.6
@@ -4,7 +4,7 @@
   @author Gustaf Neumann
   @cvs-id $Id$
 } -query {
-  {classes}
+  {classes:token}
   {documented_only:boolean 1}
   {with_children:boolean 0}
   {dpi:integer 96}
@@ -22,14 +22,17 @@
   ad_script_abort
 }
 
-set stem [ad_tmpnam]
-set dotfile $stem.dot
-set outfile $stem.$format
 
 try {
-  set f [open $dotfile w]; puts $f $dot_code; close $f
-  exec $dot -T$format -o $outfile $dotfile
+  set F [ad_opentmpfile dotfile dot]
+  puts $F $dot_code
+  close $F
+
+  exec $dot -T$format -O $dotfile
+  set outfile $dotfile.$format
+  
 } on error {errorMsg} {
+  catch {close $F}
   ns_log warning "show-class-graph: dot returned $errorMsg"
   ad_return_error "dot error" $errorMsg
 } on ok {result} {