Index: generic/tcl.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.h,v
retrieving revision 1.227
diff -u -r1.227 tcl.h
--- generic/tcl.h	15 Nov 2006 14:58:26 -0000	1.227
+++ generic/tcl.h	22 Nov 2006 19:38:08 -0000
@@ -559,15 +559,6 @@
 					 * matches */
 
 /*
- * The following flag is experimental and only intended for use by Expect. It
- * will probably go away in a later release.
- */
-
-#define TCL_REG_BOSONLY		002000	/* prepend \A to pattern so it only
-					 * matches at the beginning of the
-					 * string. */
-
-/*
  * Flags values passed to Tcl_RegExpExecObj.
  */
 
Index: generic/tclInt.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.h,v
retrieving revision 1.296
diff -u -r1.296 tclInt.h
--- generic/tclInt.h	15 Nov 2006 20:08:44 -0000	1.296
+++ generic/tclInt.h	22 Nov 2006 19:38:09 -0000
@@ -947,7 +947,18 @@
 
 /*
  *----------------------------------------------------------------
- * Data structures related to expressions. These are used only in tclExpr.c.
+ * Experimental flag value passed to Tcl_GetRegExpFromObj.
+ * Intended for use only by Expect.
+ * It will probably go away in a later release.
+ *----------------------------------------------------------------
+ */
+#define TCL_REG_BOSONLY         002000  /* prepend \A to pattern so it only
+					 * matches at the beginning of the
+					 * string. */
+
+/*
+ *----------------------------------------------------------------
+ * Data structures related to expressions.
  *----------------------------------------------------------------
  */
 
