Index: generic/xotclError.c
===================================================================
diff -u -r072e1c7c091c1370fc2fe26f66acf7a7cbd4a66f -r7cb7c751d63fe0eece5756910e3f0b18e61a4d16
--- generic/xotclError.c	(.../xotclError.c)	(revision 072e1c7c091c1370fc2fe26f66acf7a7cbd4a66f)
+++ generic/xotclError.c	(.../xotclError.c)	(revision 7cb7c751d63fe0eece5756910e3f0b18e61a4d16)
@@ -41,26 +41,26 @@
 
 
 int
-XOTclErrInProc (Tcl_Interp *interp, Tcl_Obj *objName,
-		Tcl_Obj *clName, char *procName) {
-    Tcl_DString errMsg;
-    char *cName, *space;
-    ALLOC_DSTRING(&errMsg, "\n    ");
-    if (clName) {
-      cName = ObjStr(clName);
-      space = " ";
-    } else {
-      cName = "";
-      space ="";
-    }
-    Tcl_DStringAppend(&errMsg, ObjStr(objName),-1);
-    Tcl_DStringAppend(&errMsg, space, -1);
-    Tcl_DStringAppend(&errMsg, cName, -1);
-    Tcl_DStringAppend(&errMsg, "->", 2);
-    Tcl_DStringAppend(&errMsg, procName, -1);
-    Tcl_AddErrorInfo (interp, Tcl_DStringValue(&errMsg));
-    DSTRING_FREE(&errMsg);
-    return TCL_ERROR;
+XOTclErrInProc(Tcl_Interp *interp, Tcl_Obj *objName,
+               Tcl_Obj *clName, char *procName) {
+  Tcl_DString errMsg;
+  char *cName, *space;
+  ALLOC_DSTRING(&errMsg, "\n    ");
+  if (clName) {
+    cName = ObjStr(clName);
+    space = " ";
+  } else {
+    cName = "";
+    space ="";
+  }
+  Tcl_DStringAppend(&errMsg, ObjStr(objName),-1);
+  Tcl_DStringAppend(&errMsg, space, -1);
+  Tcl_DStringAppend(&errMsg, cName, -1);
+  Tcl_DStringAppend(&errMsg, "->", 2);
+  Tcl_DStringAppend(&errMsg, procName, -1);
+  Tcl_AddErrorInfo (interp, Tcl_DStringValue(&errMsg));
+  DSTRING_FREE(&errMsg);
+  return TCL_ERROR;
 }
 
 int