Index: generic/predefined.tcl
===================================================================
diff -u -re2f11549ef70518cca8c9c49b1d78f4383b00a87 -r3adc7fb2f78db5aa79f1d662cb799ddc86fc5793
--- generic/predefined.tcl	(.../predefined.tcl)	(revision e2f11549ef70518cca8c9c49b1d78f4383b00a87)
+++ generic/predefined.tcl	(.../predefined.tcl)	(revision 3adc7fb2f78db5aa79f1d662cb799ddc86fc5793)
@@ -76,12 +76,12 @@
   # exit handlers
   #
   proc ::nsf::exithandler {args} {
-    lassign $args up value
-    switch {$op} {
+    lassign $args op value
+    switch $op {
       set {::proc ::nsf::__exithandler {} $value}
       get {::info body ::nsf::__exithandler}
-      unset {::proc ::nsf::__exithandler {} {;}}
-      default {puts "syntax: ::nsf::exithandler set|get|unset ?arg?"}
+      unset {proc ::nsf::__exithandler args {;}}
+      default {error "syntax: ::nsf::exithandler set|get|unset ?arg?"}
     }
   }
   # initialize exit handler