From df19efe7b78ca6ad9c3bf676bda8d611cc576793 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 15 Mar 1996 14:40:23 +0000
Subject: [PATCH] Bug fix: do_responseStatus called Tcl_AppendElement when
 interp was 0.

---
 wais-tcl.c |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/wais-tcl.c b/wais-tcl.c
index c445bd2..d61dd1f 100644
--- a/wais-tcl.c
+++ b/wais-tcl.c
@@ -5,7 +5,10 @@
  * Wais extension to IrTcl
  *
  * $Log: wais-tcl.c,v $
- * Revision 1.4  1996-03-11 17:39:48  adam
+ * Revision 1.5  1996-03-15 14:40:23  adam
+ * Bug fix: do_responseStatus called Tcl_AppendElement when interp was 0.
+ *
+ * Revision 1.4  1996/03/11  17:39:48  adam
  * 40 documents are retrieved by default (maxDocs=40).
  *
  * Revision 1.3  1996/03/08  16:46:44  adam
@@ -927,6 +930,7 @@ static int do_responseStatus (void *o, Tcl_Interp *interp,
     {
         free (obj->diag);
         free (obj->addinfo);
+        return TCL_OK;
     }
     if (obj->diag)
     {
-- 
1.7.10.4