From 36ca3a44311556d7e4e0fd2db7fbe45428ce426f Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Thu, 5 Apr 2001 15:19:57 +0000
Subject: [PATCH] allocate correct abount of storage

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

diff --git a/src/dbStatic/dbLexRoutines.c b/src/dbStatic/dbLexRoutines.c
index 2c06468dd..c3e6405ce 100644
--- a/src/dbStatic/dbLexRoutines.c
+++ b/src/dbStatic/dbLexRoutines.c
@@ -646,7 +646,7 @@ static void dbRecordtypeBody(void)
     if(ellCount(&tempList)) yyerrorAbort("dbMenuBody: tempList not empty");
     pdbRecordType->no_prompt = no_prompt;
     pdbRecordType->no_links = no_links;
-    pdbRecordType->link_ind = dbCalloc(no_prompt,sizeof(short));
+    pdbRecordType->link_ind = dbCalloc(no_links,sizeof(short));
     ilink = 0;
     for(i=0; i<no_fields; i++) {
 	pdbFldDes = pdbRecordType->papFldDes[i];