Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -N -r7fb9a4603a2c84fafbfe3659bcbe6f39ab3b4993 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 7fb9a4603a2c84fafbfe3659bcbe6f39ab3b4993)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -1,4 +1,4 @@
-# -*- tcl -*-
+# -*- Tcl -*-
 ############################################################
 # xotcl2.tcl --
 #
@@ -374,7 +374,7 @@
     target:optional args
   } {
     set arglist [list]
-    if {[info exists target] && [string range $target 0 0] eq "-"} {
+    if {[info exists target] && [string index $target 0] eq "-"} {
       error "target '$target' must not start with a dash"
     }
     if {[info exists default]} {lappend arglist -default $default}
@@ -398,7 +398,7 @@
     target:optional args
   } {
     set arglist [list]
-    if {[info exists target] && [string range $target 0 0] eq "-"} {
+    if {[info exists target] && [string index $target 0] eq "-"} {
       error "target '$target' must not start with a dash"
     }
     if {[info exists default]} {lappend arglist -default $default}
@@ -1503,7 +1503,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End: