Index: library/lib/nx-shell.tcl
===================================================================
diff -u -N -r6c6f313b431d21ff7e593a45a9ed4989dd9d31e8 -rf1bfcbcc730df02b59b395c51876871398958ec8
--- library/lib/nx-shell.tcl	(.../nx-shell.tcl)	(revision 6c6f313b431d21ff7e593a45a9ed4989dd9d31e8)
+++ library/lib/nx-shell.tcl	(.../nx-shell.tcl)	(revision f1bfcbcc730df02b59b395c51876871398958ec8)
@@ -16,14 +16,15 @@
         }
         append line [gets stdin]
         if {[info complete $line]} {
-          set script [list catch $line result opts]
-          uplevel #0 [list if "\[$script\]" {
-            puts [dict get $opts -errorinfo]
-            unset opts;
+          set script [list catch $line [current]::result [current]::opts]
+          set r [uplevel #0 $script]
+          if {$r} {
+            puts [dict get ${:opts} -errorinfo]
+            unset :opts;
           } else {
-            puts $result
-            unset result
-          }]
+            puts ${:result}
+            unset :result
+          }          
           set line ""
           continue
         }