Bug fix in zass_openresult.

diff --git a/zlayer-zdist/zaccess.c b/zlayer-zdist/zaccess.c
index 9cafc9c..a092b9e 100644 (file)
--- a/zlayer-zdist/zaccess.c
+++ b/zlayer-zdist/zaccess.c
@@ -47,7 +47,10 @@
  * Z39.50 API for the Email gateway
  *
  * $Log: zaccess.c,v $
- * Revision 1.2  1995/07/05 10:20:44  adam
+ * Revision 1.3  1995/07/05 11:09:06  adam
+ * Bug fix in zass_openresult.
+ *
+ * Revision 1.2  1995/07/05  10:20:44  adam
  * Edited ZDist zlayer to use new API.
  *
  * Revision 1.1  1995/07/03  08:21:43  adam
@@ -214,7 +217,8 @@ int zass_openresult(ZASS p, int *complete)
     p->preferredmessagesize = InitResponse_GetPreferredMessageSize(ires);
     p->maxrecordsize = InitResponse_GetExceptionalRecordSize(ires);
     InitResponse_Destroy(ires);
-    *complete = 1;
+    if (complete)
+        *complete = 1;
     return 0;
 }