@@ -1,8 +1,8 @@
 #!/usr/locanl/bin/tclsh
 # FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Sun Sep 19 22:42:13 1999 (joze)"
+# LAST MODIFICATION: "Mon Sep 20 01:34:31 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -203,10 +203,15 @@
 					[::tclreadline::HistoryFileGet]
 				} ::tclreadline::errorMsg]} {
 					puts stderr $::tclreadline::errorMsg
 				}
 
+				# this call is ignored, if tclreadline.c
+				# was compiled with CLEANUP_AFER_SIGNAL
+				# not defined. This is the case for
+				# older versions of libreadline.
+				#
 				::tclreadline::readline reset-terminal
 
 				if [catch "eval ::tclreadline::Exit $args" message] {
 					puts stderr "error:"
 					puts stderr "$message"