1 files changed, 2 insertions, 2 deletions
diff --git a/cooled~.tcl b/cooled~.tcl
index ebd7699..5965164 100644
--- a/cooled~.tcl
+++ b/cooled~.tcl
@@ -17,13 +17,13 @@ proc cooled_apply {id} {
      	[eval concat $$var_graph_draw] \
  	\;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc cooled_cancel {id} {
      set cmd [concat $id cancel \;]
      #puts stderr $cmd
-     pd $cmd
+     pdsend $cmd
 }
  
 proc cooled_ok {id} {