@@ -42,10 +42,15 @@
     if (Tcl_GetBooleanFromObj(interp, objv[idx],\
 	    &(var)) != TCL_OK) {		\
 	    return TCL_ERROR;			\
     }						\
     OPT_POSTLOG()
+
+#define OPTBYTE(option, var, lvar)			\
+    OPT_PROLOG(option)				\
+    var = Tcl_GetByteArrayFromObj(objv[idx], &(lvar));\
+    OPT_POSTLOG()
 
 #define OPTBAD(type, list)			\
     Tcl_AppendResult(interp, "bad ", (type),	\
 		" \"", opt, "\": must be ",	\
 		(list), (char *) NULL)