@@ -1,10 +1,10 @@
 
  /* ==================================================================
 
-    FILE: "/disk01/home/joze/src/tclreadline/tclreadline.c"
-    LAST MODIFICATION: "Mon Sep 20 01:23:39 1999 (joze)"
+    FILE: "/home/joze/src/tclreadline/tclreadline.c"
+    LAST MODIFICATION: "Mon Sep 20 01:35:18 1999 (joze)"
     (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     $Id$
     ---
 
     tclreadline -- gnu readline for tcl
@@ -375,20 +375,23 @@
         case TCLRL_RESET_TERMINAL:
 			/* TODO: add this to the completer */
             if (argc > 3) {
                 Tcl_WrongNumArgs(interp, 2, objv, "?terminal-name?");
                 return TCL_ERROR;
-            } else if (3 == argc) {
+			}
+            if (3 == argc) {
 				/*
 				 * - tcl8.0 doesn't have Tcl_GetString()
 				 * - rl_reset_terminal() might be defined
 				 *   to take no arguments. This might produce
 				 *   a compiler warning.
 				 */
 				rl_reset_terminal(Tcl_GetStringFromObj(objv[2], (int*) NULL));
+#ifdef CLEANUP_AFER_SIGNAL
             } else {
 				rl_cleanup_after_signal();
+#endif
 			}
             break;
 
         default:
             goto BAD_COMMAND;