From b3f2c8769715b0abdf705c89cc4823bfec7ed15c Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Mon, 13 Aug 2001 15:57:45 +0000
Subject: [PATCH] make sure prompt has a value

---
 src/dbStatic/dbLexRoutines.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/dbStatic/dbLexRoutines.c b/src/dbStatic/dbLexRoutines.c
index 848fe0af7..9e1602523 100644
--- a/src/dbStatic/dbLexRoutines.c
+++ b/src/dbStatic/dbLexRoutines.c
@@ -650,6 +650,8 @@ static void dbRecordtypeBody(void)
     ilink = 0;
     for(i=0; i<no_fields; i++) {
 	pdbFldDes = pdbRecordType->papFldDes[i];
+        /* if prompt is null make it a null string */
+        if(!pdbFldDes->prompt) pdbFldDes->prompt = dbCalloc(1,sizeof(char));
 	field_type = pdbFldDes->field_type;
 	if((field_type>=DBF_INLINK) && (field_type<=DBF_FWDLINK))
 	    pdbRecordType->link_ind[ilink++] = i;