Index: library/nx/nx.tcl
===================================================================
diff -u -N -r6af35a888e33da976e283271bb68060f34d91a9a -r09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 09b4bca7c8d5c44f6be0b2c04ebfcdb7a58fd5ae)
@@ -1,4 +1,4 @@
-# -*- tcl -*-
+# -*- Tcl -*-
 ############################################################
 # nx.tcl --
 #
@@ -360,7 +360,7 @@
     set arguments [lrange [::nsf::current args] 1 end]
     set object [dict get $pathData object]
 
-    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 frame] && $frame ni {object default}} {
@@ -584,7 +584,7 @@
       set pathData  [:__resolve_method_path -per-object  $methodName]
       set object    [dict get $pathData object]
 
-      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 frame] && $frame ni {object default}} {