Index: generic/gentclAPI.tcl
===================================================================
diff -u -r96479aa72df034766d8d1866a23bc261b1402a30 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 96479aa72df034766d8d1866a23bc261b1402a30)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -613,7 +613,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: generic/nsf.tcl
===================================================================
diff -u -r6735d3f83807744d86412c01ee19de0a17bfc6d0 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- generic/nsf.tcl	(.../nsf.tcl)	(revision 6735d3f83807744d86412c01ee19de0a17bfc6d0)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -224,7 +224,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/lib/make.tcl
===================================================================
diff -u -r703ade2b929b01237ca3269c763942fb63b50c57 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/lib/make.tcl	(.../make.tcl)	(revision 703ade2b929b01237ca3269c763942fb63b50c57)
+++ library/lib/make.tcl	(.../make.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -6,7 +6,7 @@
 
 # adjust the paths;
 # - auto_path is needed, when nx is loaded via good old pkgIndex.tcl
-# - tcl::tm::roots is needed when nx is provided as a tcl module (.tm)
+# - tcl::tm::roots is needed when nx is provided as a Tcl module (.tm)
 lappend auto_path ..
 ::tcl::tm::roots [pwd]
 #puts stderr TM-LIST=[  ::tcl::tm::path list ]
@@ -120,7 +120,7 @@
   }
 }
 
-### tcl file-command
+### Tcl file-command
 rename file tcl_file
 nx::Object create file {
   :require namespace
Index: library/lib/mkIndex.tcl
===================================================================
diff -u -rb1379117656a8f4a9eb8aac043370fe8a299837e -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/lib/mkIndex.tcl	(.../mkIndex.tcl)	(revision b1379117656a8f4a9eb8aac043370fe8a299837e)
+++ library/lib/mkIndex.tcl	(.../mkIndex.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -6,7 +6,7 @@
 
 # adjust the paths;
 # - auto_path is needed, when nx is loaded via good old pkgIndex.tcl
-# - tcl::tm::roots is needed when nx is provided as a tcl module (.tm)
+# - tcl::tm::roots is needed when nx is provided as a Tcl module (.tm)
 lappend auto_path ..
 
 # Is support for Tcl modules available (>= Tcl 8.5)?
Index: library/lib/nx-shell.tcl
===================================================================
diff -u -r89f7f5d879f2881445c70e1c5b4be391cabaf6a0 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/lib/nx-shell.tcl	(.../nx-shell.tcl)	(revision 89f7f5d879f2881445c70e1c5b4be391cabaf6a0)
+++ library/lib/nx-shell.tcl	(.../nx-shell.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -1,4 +1,4 @@
-# -*- tcl -*-
+# -*- Tcl -*-
 ############################################################
 # nx-shell.tcl --
 #
@@ -225,7 +225,7 @@
 package provide nx::shell 1.1
 
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/lib/nx-traits.tcl
===================================================================
diff -u -rf934951db464db1a6f39ac98290ecde17a466cd7 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/lib/nx-traits.tcl	(.../nx-traits.tcl)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
+++ library/lib/nx-traits.tcl	(.../nx-traits.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -185,7 +185,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/lib/nx-volatile.tcl
===================================================================
diff -u -rdd169437c7a701da0063a40978614e6148d71221 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/lib/nx-volatile.tcl	(.../nx-volatile.tcl)	(revision dd169437c7a701da0063a40978614e6148d71221)
+++ library/lib/nx-volatile.tcl	(.../nx-volatile.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -19,7 +19,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/mongodb/nx-mongo.tcl
===================================================================
diff -u -rac40ee26a10c8af766c0b2c2fdd61b76cbb70ef1 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision ac40ee26a10c8af766c0b2c2fdd61b76cbb70ef1)
+++ library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -958,7 +958,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/nx/nx.tcl
===================================================================
diff -u -rf934951db464db1a6f39ac98290ecde17a466cd7 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/nx/nx.tcl	(.../nx.tcl)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -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}} {
@@ -2928,7 +2928,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/serialize/serializer.tcl
===================================================================
diff -u -rf934951db464db1a6f39ac98290ecde17a466cd7 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -61,7 +61,7 @@
       <@tt>ignore</@tt> and <@tt>ignoreVarsRE</@tt> see
       <@tt>Serizalizer all</@tt>. <@tt>map</@tt> can be used
       in addition to provide pairs of old-string and new-string
-      (like in the tcl command <@tt>string map</@tt>). This option
+      (like in the Tcl command <@tt>string map</@tt>). This option
       can be used to regenerate the serialized object under a different
       object or under an different name, or to translate relative
       object names in the serialized code.<p>
@@ -1128,7 +1128,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -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:
Index: tests/summary.tcl
===================================================================
diff -u -r3232e56d77cb2069265c52d89cd46583a49ecbe0 -r0fd6850413df596f7355ed788d09ad733b35a8ef
--- tests/summary.tcl	(.../summary.tcl)	(revision 3232e56d77cb2069265c52d89cd46583a49ecbe0)
+++ tests/summary.tcl	(.../summary.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
@@ -33,7 +33,7 @@
 
 #
 # Local variables:
-#    mode: tcl
+#    mode: Tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End: