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];