@@ -6,13 +6,13 @@
  */
 
 #ifndef _TCL_OPTS_H
 #define _TCL_OPTS_H
 
-#define OPTFLAG(option, var)			\
+#define OPTFLAG(option, var, val)		\
     if (strcmp(opt, (option)) == 0) {		\
-	var = 1;				\
+	var = val;				\
 	continue;				\
     }
 
 #define OPT_PROLOG(option)			\
     if (strcmp(opt, (option)) == 0) {		\
@@ -52,11 +52,11 @@
 	    &(var)) != TCL_OK) {		\
 	    return TCL_ERROR;			\
     }						\
     OPT_POSTLOG()
 
-#define OPTBYTE(option, var, lvar)			\
+#define OPTBYTE(option, var, lvar)		\
     OPT_PROLOG(option)				\
     var = Tcl_GetByteArrayFromObj(objv[idx], &(lvar));\
     OPT_POSTLOG()
 
 #define OPTBAD(type, list)			\