Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -1,4 +1,4 @@
-# -*- Tcl -*-
+# -*- tcl -*-
 ############################################################
 # xotcl2.tcl --
 #
@@ -374,7 +374,7 @@
     target:optional args
   } {
     set arglist [list]
-    if {[info exists target] && [string index $target 0] eq "-"} {
+    if {[info exists target] && [string range $target 0 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 index $target 0] eq "-"} {
+    if {[info exists target] && [string range $target 0 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: