From e6808f844afadf7412f40ca387ce80ed618de75c Mon Sep 17 00:00:00 2001
From: Stefan Schippers <schippes@mazinga.lan>
Date: Sun, 8 Nov 2020 18:06:55 +0100
Subject: [PATCH] better syntax for timeout cancel in gaw_cmd

---
 src/xschem.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index f3519253..ff82aae6 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -773,10 +773,10 @@ proc gaw_cmd {cmd} {
   fileevent $gaw_fd readable gaw_echoline
   while { $n} { 
     #timeout for abnormal deadlocks 
-    after 10000 set gaw_fd stalled
+    set wd [after 10000 set gaw_fd stalled]
     vwait gaw_fd
     if { $gaw_fd ne {stalled} } {
-      after cancel set gaw_fd stalled
+      after cancel $wd
     } else { 
       puts "timeout waiting for gaw response.."
       break