From 9f61e10cf9b266d5f71d7308a13494a402a9ae69 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 13 Apr 2021 08:05:45 +0000
Subject: Unbreak build

---
 generic/tclResult.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclResult.c b/generic/tclResult.c
index 086659e..5b7a8e5 100644
--- a/generic/tclResult.c
+++ b/generic/tclResult.c
@@ -488,7 +488,7 @@ const char *
 Tcl_GetStringResult(
     Tcl_Interp *interp)/* Interpreter whose result to return. */
 {
-#ifdef TCL_NO_DEPRECATED
+#ifndef TCL_NO_DEPRECATED
     Interp *iPtr = (Interp *) interp;
     /*
      * If the string result is empty, move the object result to the string
-- 
cgit v0.12