Index: generic/nsf.c
===================================================================
diff -u -rdc94a1f141b1c6a106d0ee142c9df2743ac82e67 -r5ab2ad98d7e3d8509a26ea32ec64fa9cc78af2f8
--- generic/nsf.c	(.../nsf.c)	(revision dc94a1f141b1c6a106d0ee142c9df2743ac82e67)
+++ generic/nsf.c	(.../nsf.c)	(revision 5ab2ad98d7e3d8509a26ea32ec64fa9cc78af2f8)
@@ -29089,6 +29089,7 @@
     } else {
       char *errMsg = ObjStr(Tcl_GetObjResult(interp));
 
+      Tcl_SetErrorCode(interp, "NSF", "VALUE", "CONSTRAINT", NULL);
       if (*errMsg == '\0') {
         return NsfPrintError(interp, "invalid value constraints \"%s\"",
                              ObjStr(paramObjPtr) );