Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae)
@@ -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}