@@ -1,21 +1,14 @@
-
  /* ==================================================================
-
-    FILE: "/home/joze/src/tclreadline/tclshrl.c"
-    LAST MODIFICATION: "Mit, 10 Jan 2001 06:29:34 +0100 (joze)"
-    (C) 1998 - 2001 by Johannes Zellner, <johannes@zellner.org>
+    FILE: tclshrl.c
     $Id$
     ---
-
     tclreadline -- gnu readline for tcl
     http://www.zellner.org/tclreadline/
-    Copyright (c) 1998 - 2001, Johannes Zellner <johannes@zellner.org>
-
+    Copyright (c) 1998 - 2014, Johannes Zellner <johannes@zellner.org>
     This software is copyright under the BSD license.
-
-    ================================================================== */  
+    ================================================================== */
 
 #ifdef HAVE_CONFIG_H
 #   include "config.h"
 #endif
 
@@ -36,26 +29,26 @@
     int status;
 #if 0
     assert(Tcl_InitStubs(interp, TCL_VERSION, 0));
 #endif
     if (TCL_ERROR == Tcl_Init(interp)) {
-	return TCL_ERROR;
+        return TCL_ERROR;
     }
     if (TCL_ERROR == Tclreadline_Init(interp)) {
-	return TCL_ERROR;
+        return TCL_ERROR;
     }
     Tcl_StaticPackage(interp, "tclreadline",
-	Tclreadline_Init, Tclreadline_SafeInit);
+    Tclreadline_Init, Tclreadline_SafeInit);
 #if (TCL_MAJOR_VERSION == 7) && (TCL_MINOR_VERSION == 4)
     tcl_RcFileName = "~/.tclshrc";
 #else
     Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY);
 #endif
     sprintf(file, "%s/tclreadlineInit.tcl", TCLRL_LIBRARY);
     if ((status = Tcl_EvalFile(interp, file))) {
-	fprintf(stderr, "(TclreadlineAppInit) unable to eval %s\n", file);
-	exit (1);
+        fprintf(stderr, "(TclreadlineAppInit) unable to eval %s\n", file);
+        exit (1);
     }
     return TCL_OK;
 }
 
 int