Index: library/lib/nx-shell.tcl =================================================================== diff -u -N -r78c12b94b4cdcd5edb70a546b7bbb7c0a4724668 -rda2688b92e232f4263857d29f6bcca80f642d51a --- library/lib/nx-shell.tcl (.../nx-shell.tcl) (revision 78c12b94b4cdcd5edb70a546b7bbb7c0a4724668) +++ library/lib/nx-shell.tcl (.../nx-shell.tcl) (revision da2688b92e232f4263857d29f6bcca80f642d51a) @@ -179,7 +179,7 @@ } # watch out for on-return handlers if {$i < $l - 3 && [lindex $args $i] eq "on" && [lindex $args $j] in {return 2}} { - # imputate a wrapped return script + # inputate a wrapped return script set idx [expr {$i + 3}] set returnScript [lindex $args $idx] lset args $idx [list [current] onHandler $returnScript]