From c544c5bd6ee64aa3fd89d8f56a217dfb70a2dd88 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 2 May 2024 17:33:43 +0200
Subject: [PATCH] xinit.c: test for tcl_interactive existence before testing
 value

---
 src/xinit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xinit.c b/src/xinit.c
index be997b44..f3df90b2 100644
--- a/src/xinit.c
+++ b/src/xinit.c
@@ -3004,7 +3004,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
 
 
  if(tclgetboolvar("use_tclreadline") && !cli_opt_detach && !cli_opt_no_readline) {
-   tcleval( "if {![catch {package require tclreadline}] && $tcl_interactive} "
+   tcleval( "if {![catch {package require tclreadline}] && [info exists tcl_interactive] && $tcl_interactive} "
     "{"
       "::tclreadline::readline builtincompleter 0; "
       "::tclreadline::readline customcompleter completer; "