Index: generic/predefined.h
===================================================================
diff -u -re2f11549ef70518cca8c9c49b1d78f4383b00a87 -r3adc7fb2f78db5aa79f1d662cb799ddc86fc5793
--- generic/predefined.h	(.../predefined.h)	(revision e2f11549ef70518cca8c9c49b1d78f4383b00a87)
+++ generic/predefined.h	(.../predefined.h)	(revision 3adc7fb2f78db5aa79f1d662cb799ddc86fc5793)
@@ -30,12 +30,12 @@
 "regsub {\\\"} $msg \"\\\"info \" msg\n"
 "error $msg \"\"}\n"
 "proc ::nsf::exithandler {args} {\n"
-"lassign $args up value\n"
-"switch {$op} {\n"
+"lassign $args op value\n"
+"switch $op {\n"
 "set {::proc ::nsf::__exithandler {} $value}\n"
 "get {::info body ::nsf::__exithandler}\n"
-"unset {::proc ::nsf::__exithandler {} {;}}\n"
-"default {puts \"syntax: ::nsf::exithandler set|get|unset ?arg?\"}}}\n"
+"unset {proc ::nsf::__exithandler args {;}}\n"
+"default {error \"syntax: ::nsf::exithandler set|get|unset ?arg?\"}}}\n"
 "::nsf::exithandler unset\n"
 "proc tmpdir {} {\n"
 "foreach e [list TMPDIR TEMP TMP] {\n"