From bdc50cbbd99dd7599604d874635af58f7c5281a5 Mon Sep 17 00:00:00 2001
From: Chris Jefferson <caj21@st-andrews.ac.uk>
Date: Tue, 9 Feb 2016 11:53:41 +0000
Subject: [PATCH] Increase initial size of global variables and record names
 tables

---
 src/gvars.c   | 2 +-
 src/records.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/gvars.c b/src/gvars.c
index fb3eee6adf..f0503d34c5 100644
--- a/src/gvars.c
+++ b/src/gvars.c
@@ -1188,7 +1188,7 @@ static Int InitLibrary (
     SET_LEN_PLIST( FopiesGVars, 0 );
 
     /* make the list of global variables                                   */
-    SizeGVars  = 997;
+    SizeGVars  = 14033;
     TableGVars = NEW_PLIST( T_PLIST, SizeGVars );
     SET_LEN_PLIST( TableGVars, SizeGVars );
 
diff --git a/src/records.c b/src/records.c
index 0bee3cfb01..2cee4540d8 100644
--- a/src/records.c
+++ b/src/records.c
@@ -739,7 +739,7 @@ static Int InitLibrary (
     SET_LEN_PLIST( NamesRNam, 0 );
 
     /* make the hash list of record names                                  */
-    SizeRNam = 997;
+    SizeRNam = 14033;
     HashRNam = NEW_PLIST( T_PLIST, SizeRNam );
     MakeBagPublic(HashRNam);
     SET_LEN_PLIST( HashRNam, SizeRNam );