diff --git a/src/modules/punk/repl-0.1.tm b/src/modules/punk/repl-0.1.tm
index 3a6cab6c..7977c38a 100644
--- a/src/modules/punk/repl-0.1.tm
+++ b/src/modules/punk/repl-0.1.tm
@@ -1387,7 +1387,7 @@ proc repl::repl_handler {inputchan prompt_config} {
                             set sttycmd [auto_execok stty]
                             if {$sttycmd ne ""} {
                                 #the more parseable: stty -g  doesn't give rows/columns
-                                if {![catch {exec {*}$sttycmd -a} result} {
+                                if {![catch {exec {*}$sttycmd -a} result]} {
                                     lassign [split $result \n] firstline
                                     set lineparts [split $firstline {;}] ;#we seem to get segments that look well behaved enough to be treated as tcl lists - review - regex? 
                                     set rowinfo [lsearch $lineparts -index end -inline $lineparts rows]