1 files changed, 9 insertions, 7 deletions
diff --git a/library/word.tcl b/library/word.tcl
index b8f34a5..b8f7f7d 100644
--- a/library/word.tcl
+++ b/library/word.tcl
@@ -7,8 +7,10 @@
 # Copyright (c) 1996 by Sun Microsystems, Inc.
 # Copyright (c) 1998 by Scritpics Corporation.
 #
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+# See the file "license.terms" for information on usage and redistribution of
+# this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+# RCS: @(#) $Id: word.tcl,v 1.10 2007/12/13 15:26:03 dgp Exp $
 
 # The following variables are used to determine which characters are
 # interpreted as white space.
@@ -67,7 +69,7 @@ namespace eval ::tcl {
 proc tcl_wordBreakAfter {str start} {
     variable ::tcl::WordBreakRE
     set result {-1 -1}
-    regexp -indices -start $start -- $WordBreakRE(after) $str result
+    regexp -indices -start $start $WordBreakRE(after) $str result
     return [lindex $result 1]
 }
 
@@ -85,7 +87,7 @@ proc tcl_wordBreakAfter {str start} {
 proc tcl_wordBreakBefore {str start} {
     variable ::tcl::WordBreakRE
     set result {-1 -1}
-    regexp -indices -- $WordBreakRE(before) [string range $str 0 $start] result
+    regexp -indices $WordBreakRE(before) [string range $str 0 $start] result
     return [lindex $result 1]
 }
 
@@ -104,7 +106,7 @@ proc tcl_wordBreakBefore {str start} {
 proc tcl_endOfWord {str start} {
     variable ::tcl::WordBreakRE
     set result {-1 -1}
-    regexp -indices -start $start -- $WordBreakRE(end) $str result
+    regexp -indices -start $start $WordBreakRE(end) $str result
     return [lindex $result 1]
 }
 
@@ -122,7 +124,7 @@ proc tcl_endOfWord {str start} {
 proc tcl_startOfNextWord {str start} {
     variable ::tcl::WordBreakRE
     set result {-1 -1}
-    regexp -indices -start $start -- $WordBreakRE(next) $str result
+    regexp -indices -start $start $WordBreakRE(next) $str result
     return [lindex $result 1]
 }
 
@@ -138,7 +140,7 @@ proc tcl_startOfNextWord {str start} {
 proc tcl_startOfPreviousWord {str start} {
     variable ::tcl::WordBreakRE
     set word {-1 -1}
-    regexp -indices -- $WordBreakRE(previous) [string range $str 0 $start-1] \
+    regexp -indices $WordBreakRE(previous) [string range $str 0 $start-1] \
 	    result word
     return [lindex $word 0]
 }