From d5ba80de0d4b36c59caa5119a867058a4394c87e Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Thu, 22 Aug 2024 17:37:50 -0700
Subject: [PATCH] Fixed issue with incorrect indefinite name when no antecedent
 is found.

Fixed issue with the word ISN'T being output incorrectly in a message.
---
 src/shrdlu/{newans.82 => newans.83} | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)
 rename src/shrdlu/{newans.82 => newans.83} (99%)

diff --git a/src/shrdlu/newans.82 b/src/shrdlu/newans.83
similarity index 99%
rename from src/shrdlu/newans.82
rename to src/shrdlu/newans.83
index 8f959823..b81e96da 100644
--- a/src/shrdlu/newans.82
+++ b/src/shrdlu/newans.83
@@ -1073,7 +1073,7 @@ TEST-LOOP
 (DEFUN NOTELL NIL 
        (GLOBAL-ERR THAT
 		   ISN
-		   'T
+		   /'T
 		   THE
 		   KIND
 		   OF
@@ -1093,7 +1093,9 @@ TEST-LOOP
        ;;SINGLE "SAY" PHRASE.  "PHRASE" IS A FREE VARIABLE IN
        ;;LISTNAMES
        (PROG (ANS OLD NEW) 
-	     (AND (EQUAL PHRASE '(NIL))
+	     (AND (or 
+                   (EQUAL PHRASE '(NIL))
+                   (equal phrase nil))
 		  (SETQ PHRASE (CAR ITEM))
 		  (RETURN ITEM))
 	     (SETQ OLD (REVERSE PHRASE))