Index: generic/asm/asmAssembleTemplate.c
===================================================================
diff -u -N -rf934951db464db1a6f39ac98290ecde17a466cd7 -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/asm/asmAssembleTemplate.c	(.../asmAssembleTemplate.c)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
+++ generic/asm/asmAssembleTemplate.c	(.../asmAssembleTemplate.c)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -158,7 +158,7 @@
       cmd = Tcl_GetCommandFromObj(interp, wordOv[1]);
       if (cmd == NULL) {
 	return NsfPrintError(interp, 
-			     "Asm: cmd is not a valid tcl command: %s\n", 
+			     "Asm: cmd is not a valid Tcl command: %s\n", 
 			     Tcl_GetString( wordOv[1]));
       }
       break;
Index: generic/asm/nsfAsmAssemble.c
===================================================================
diff -u -N -rf934951db464db1a6f39ac98290ecde17a466cd7 -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/asm/nsfAsmAssemble.c	(.../nsfAsmAssemble.c)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
+++ generic/asm/nsfAsmAssemble.c	(.../nsfAsmAssemble.c)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -239,7 +239,7 @@
       cmd = Tcl_GetCommandFromObj(interp, wordOv[1]);
       if (cmd == NULL) {
 	return NsfPrintError(interp, 
-			     "Asm: cmd is not a valid tcl command: %s\n", 
+			     "Asm: cmd is not a valid Tcl command: %s\n", 
 			     Tcl_GetString( wordOv[1]));
       }
       break;
Index: generic/gentclAPI.tcl
===================================================================
diff -u -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -613,7 +613,7 @@
 
 #
 # Local variables:
-#    mode: Tcl
+#    mode: tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: generic/nsf.c
===================================================================
diff -u -N -rf934951db464db1a6f39ac98290ecde17a466cd7 -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/nsf.c	(.../nsf.c)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
+++ generic/nsf.c	(.../nsf.c)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -1449,7 +1449,7 @@
   nonnull_assert(string != NULL);
   nonnull_assert(object != NULL);
 
-  fprintf(stderr, "--- %s tcl %p %s (%d %p) nsf %p (%d) %s \n", string,
+  fprintf(stderr, "--- %s Tcl %p %s (%d %p) nsf %p (%d) %s \n", string,
           object->cmdName, (object->cmdName->typePtr != NULL) ? object->cmdName->typePtr->name : "NULL",
           object->cmdName->refCount, object->cmdName->internalRep.twoPtrValue.ptr1,
           object, object->refCount, ObjectName(object));
@@ -10325,7 +10325,7 @@
  *----------------------------------------------------------------------
  * FilterInfo --
  *
- *    Set the interp results with a tcl list containing the content of the
+ *    Set the interp results with a Tcl list containing the content of the
  *    filter list. The options withGuards and withMethodHandles can be used
  *    for different output structures
  *
@@ -10661,7 +10661,7 @@
  *    registration of a cmdPtr as filter
  *
  * Results:
- *    Returns a tcl list with the filter registration, like:
+ *    Returns a Tcl list with the filter registration, like:
  *    "<obj> filter <filterName>, "<class> filter <filterName>,
  *    or an empty list, if not registered
  *
@@ -11199,7 +11199,7 @@
    * namespace to another.
    */
 
-  /* TODO: we could use Tcl_PushCallFrame(), if we would allocate the tcl stack frame earlier */
+  /* TODO: we could use Tcl_PushCallFrame(), if we would allocate the Tcl stack frame earlier */
   result = TclPushStackFrame(interp, (Tcl_CallFrame **)&framePtr,
                              (Tcl_Namespace *) procPtr->cmdPtr->nsPtr,
                              (FRAME_IS_PROC|FRAME_IS_NSF_METHOD));
@@ -11870,7 +11870,7 @@
        * via genTclAPI.
        *
        * TODO: we could streamline this by defining as well C-API via the same
-       * syntax as for accepted for tcl obj types "nsfParam"
+       * syntax as for accepted for Tcl obj types "nsfParam"
        */
       int isNonpos = *paramsPtr->name == '-';
       int outputRequired = (isNonpos && ((paramsPtr->flags & NSF_ARG_REQUIRED) != 0u));
@@ -17101,7 +17101,7 @@
 
   if (likely(result == TCL_OK)) {
     /*
-     * The shadowed proc was created successfully. Retrieve the defined proc
+     * The shadowed proc was created successfuly. Retrieve the defined proc
      * and set its namespace to the namespace of the stub cmd.
      */
     Tcl_Command procCmd = Tcl_GetCommandFromObj(interp, procNameObj);
@@ -17546,7 +17546,7 @@
       goto forward_process_options_exit;
     }
     if (CmdIsNsfObject(cmd)     /* don't do direct invoke on nsf objects */
-        || Tcl_Command_objProc(cmd) == TclObjInterpProc  /* don't do direct invoke on tcl procs */
+        || Tcl_Command_objProc(cmd) == TclObjInterpProc  /* don't do direct invoke on Tcl procs */
         ) {
       /* silently ignore earlybinding flag */
       tcd->objProc = NULL;
@@ -22564,7 +22564,7 @@
  *----------------------------------------------------------------------
  * ListProcBody --
  *
- *    Return the body of a scripted proc as tcl interp result.
+ *    Return the body of a scripted proc as Tcl interp result.
  *
  * Results:
  *    Standard Tcl result
@@ -25357,7 +25357,7 @@
 #if defined(NSF_PROFILE)
   /*
    * Check, if profile trace is still running. If so, delete it here.
-   * Interestingly, NsfLog() seems to be unavaliable at this place.
+   * Interestingly, NsfLog() seems to be unavailable at this place.
    */
   if (RUNTIME_STATE(interp)->doTrace == 1) {
     NsfLog(interp, NSF_LOG_WARN, "tracing is still active; deactivate it due to cleanup.");
@@ -25671,7 +25671,7 @@
 
     if (objProc == TclObjInterpProc) {
       /*
-       * We have an alias to a tcl proc;
+       * We have an alias to a Tcl proc;
        */
       Proc *procPtr = (Proc *)Tcl_Command_objClientData(cmd);
       Tcl_Obj *bodyObj = (procPtr != NULL) ? procPtr->bodyPtr : NULL;
Index: generic/nsf.tcl
===================================================================
diff -u -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/nsf.tcl	(.../nsf.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -224,7 +224,7 @@
 
 #
 # Local variables:
-#    mode: Tcl
+#    mode: tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: generic/nsfDebug.c
===================================================================
diff -u -N -r0ecc82c8627c4cc7e5f008c2032695cee4918f0d -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/nsfDebug.c	(.../nsfDebug.c)	(revision 0ecc82c8627c4cc7e5f008c2032695cee4918f0d)
+++ generic/nsfDebug.c	(.../nsfDebug.c)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -47,7 +47,7 @@
  *----------------------------------------------------------------------
  * NsfReportVars --
  *
- *    Report version numbers and configure options as tcl variables.
+ *    Report version numbers and configure options as Tcl variables.
  *
  * Results:
  *    None.
Index: generic/nsfFunPtrHashTable.c
===================================================================
diff -u -N -rb089be700bb58579a48e77619512a47eb3c5562d -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/nsfFunPtrHashTable.c	(.../nsfFunPtrHashTable.c)	(revision b089be700bb58579a48e77619512a47eb3c5562d)
+++ generic/nsfFunPtrHashTable.c	(.../nsfFunPtrHashTable.c)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -46,7 +46,7 @@
  * Background: since it is not guaranteed that sizeof(function
  * pointer) == sizeof(data pointer) (or sizeof(function pointer) <=
  * sizeof(data pointer)), passing function pointers via data pointers
- * - which is what default tcl hash types do - is potentially
+ * - which is what default Tcl hash types do - is potentially
  * dangerous. Therefore, and on top, it is not allowed under ISO
  * C. So, we define our own type that allows to hash on function
  * pointers safely.
Index: generic/nsfStack.c
===================================================================
diff -u -N -r22741a6333a986af0a38983a0d06580f1a0103e5 -r6af35a888e33da976e283271bb68060f34d91a9a
--- generic/nsfStack.c	(.../nsfStack.c)	(revision 22741a6333a986af0a38983a0d06580f1a0103e5)
+++ generic/nsfStack.c	(.../nsfStack.c)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -619,7 +619,7 @@
        (offset > 0) && (varFramePtr != NULL);
        varFramePtr = Tcl_CallFrame_callerPtr(varFramePtr), offset--);
 
-  /* search for first active frame and set tcl frame pointers */
+  /* search for first active frame and set Tcl frame pointers */
   for (; varFramePtr != NULL; varFramePtr = Tcl_CallFrame_callerPtr(varFramePtr)) {
     if (((unsigned int)Tcl_CallFrame_isProcCallFrame(varFramePtr) & (FRAME_IS_NSF_METHOD|FRAME_IS_NSF_CMETHOD)) != 0u) {
       NsfCallStackContent *cscPtr = (NsfCallStackContent *)Tcl_CallFrame_clientData(varFramePtr);
Index: library/lib/make.tcl
===================================================================
diff -u -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/lib/make.tcl	(.../make.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/lib/make.tcl	(.../make.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -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 -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/lib/mkIndex.tcl	(.../mkIndex.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/lib/mkIndex.tcl	(.../mkIndex.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -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 -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/lib/nx-shell.tcl	(.../nx-shell.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/lib/nx-shell.tcl	(.../nx-shell.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -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 -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/lib/nx-traits.tcl	(.../nx-traits.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/lib/nx-traits.tcl	(.../nx-traits.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -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 -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/lib/nx-volatile.tcl	(.../nx-volatile.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/lib/nx-volatile.tcl	(.../nx-volatile.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -19,7 +19,7 @@
 
 #
 # Local variables:
-#    mode: Tcl
+#    mode: tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End:
Index: library/mongodb/nsfmongo.c
===================================================================
diff -u -N -rf934951db464db1a6f39ac98290ecde17a466cd7 -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/mongodb/nsfmongo.c	(.../nsfmongo.c)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
+++ library/mongodb/nsfmongo.c	(.../nsfmongo.c)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -1687,7 +1687,7 @@
 Nsfmongo_ThreadExit(ClientData clientData)
 {
   /*
-   * The exit might happen at a time, when tcl is already shut down.
+   * The exit might happen at a time, when Tcl is already shut down.
    * We can't reliably call NsfLog.
    */
 
@@ -1713,7 +1713,7 @@
 Nsfmongo_Exit(ClientData clientData)
 {
   /*
-   * The exit might happen at a time, when tcl is already shut down.
+   * The exit might happen at a time, when Tcl is already shut down.
    * We can't reliably call NsfLog.
    *
    *   Tcl_Interp *interp = (Tcl_Interp *)clientData;
Index: library/mongodb/nx-mongo.tcl
===================================================================
diff -u -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/mongodb/nx-mongo.tcl	(.../nx-mongo.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -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 -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -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 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 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 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 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 -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -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 -N -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:
Index: tests/summary.tcl
===================================================================
diff -u -N -r0fd6850413df596f7355ed788d09ad733b35a8ef -r6af35a888e33da976e283271bb68060f34d91a9a
--- tests/summary.tcl	(.../summary.tcl)	(revision 0fd6850413df596f7355ed788d09ad733b35a8ef)
+++ tests/summary.tcl	(.../summary.tcl)	(revision 6af35a888e33da976e283271bb68060f34d91a9a)
@@ -33,7 +33,7 @@
 
 #
 # Local variables:
-#    mode: Tcl
+#    mode: tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
 # End: