From efde68f79a637826bdb61bc058d471718ed1ec95 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Thu, 19 May 2011 09:53:22 +1000 Subject: Fix some missing closing brackets Signed-off-by: Steve Bennett --- tclcompat.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tclcompat.tcl') diff --git a/tclcompat.tcl b/tclcompat.tcl index bd0cedc..9496f46 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -162,10 +162,10 @@ proc pid {{chan {}}} { if {$chan eq ""} { tailcall .pid } - if {[catch {$chan tell}} { + if {[catch {$chan tell}]} { return -code error "can not find channel named \"$chan\"" } - if {[catch {$chan pid} pids} { + if {[catch {$chan pid} pids]} { return "" } return $pids -- cgit v1.1