diff --git a/vvp/compile.cc b/vvp/compile.cc
index 7e9450646..966ae5ff3 100644
--- a/vvp/compile.cc
+++ b/vvp/compile.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: compile.cc,v 1.135 2002/07/05 20:08:44 steve Exp $"
+#ident "$Id: compile.cc,v 1.136 2002/07/15 00:21:42 steve Exp $"
 #endif
 
 # include  "arith.h"
@@ -468,6 +468,11 @@ void compile_cleanup(void)
       int nerrs = 0;
       int last;
       
+      if (verbose_flag) {
+	    fprintf(stderr, " ... Linking\n");
+	    fflush(stderr);
+      }
+
       do {
 	    struct resolv_list_s *res = resolv_list;
 	    resolv_list = 0x0;
@@ -493,6 +498,11 @@ void compile_cleanup(void)
 
       compile_errors += nerrs;
 
+      if (verbose_flag) {
+	    fprintf(stderr, " ... Removing symbol tables\n");
+	    fflush(stderr);
+      }
+
 	/* After compile is complete, the vpi symbol table is no
 	   longer needed. VPI objects are located by following
 	   scopes. */
@@ -1423,6 +1433,9 @@ void compile_net(char*label, char*name, int msb, int lsb, bool signed_flag,
 
 /*
  * $Log: compile.cc,v $
+ * Revision 1.136  2002/07/15 00:21:42  steve
+ *  Fix initialization of symbol table string heap.
+ *
  * Revision 1.135  2002/07/05 20:08:44  steve
  *  Count different types of functors.
  *
diff --git a/vvp/compile.h b/vvp/compile.h
index 226dcabc7..d5571bd62 100644
--- a/vvp/compile.h
+++ b/vvp/compile.h
@@ -19,7 +19,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: compile.h,v 1.43 2002/06/21 04:58:55 steve Exp $"
+#ident "$Id: compile.h,v 1.44 2002/07/15 00:21:42 steve Exp $"
 #endif
 
 # include  <stdio.h>
@@ -39,6 +39,8 @@ extern void compile_init(void);
 
 extern void compile_cleanup(void);
 
+extern bool verbose_flag;
+
 /*
  *  Connect a list of symbols to a contiguous set of ipoints.
  *  Constants C<?> are handled by setting the ival of the ipoint.
@@ -249,6 +251,9 @@ extern void compile_net(char*label, char*name,
 
 /*
  * $Log: compile.h,v $
+ * Revision 1.44  2002/07/15 00:21:42  steve
+ *  Fix initialization of symbol table string heap.
+ *
  * Revision 1.43  2002/06/21 04:58:55  steve
  *  Add support for special integer vectors.
  *
diff --git a/vvp/main.cc b/vvp/main.cc
index 5e5efcfe1..2d0e36345 100644
--- a/vvp/main.cc
+++ b/vvp/main.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: main.cc,v 1.28 2002/07/05 20:08:44 steve Exp $"
+#ident "$Id: main.cc,v 1.29 2002/07/15 00:21:42 steve Exp $"
 #endif
 
 # include  "config.h"
@@ -54,6 +54,8 @@ extern "C" int optind;
 extern "C" const char*optarg;
 #endif
 
+bool verbose_flag = false;
+
 
 #if defined(HAVE_SYS_RESOURCE_H)
 static void my_getrusage(struct rusage *a)
@@ -122,7 +124,6 @@ int main(int argc, char*argv[])
       unsigned flag_errors = 0;
       const char*design_path = 0;
       bool debug_flag = false;
-      bool verbose_flag = false;
       struct rusage cycles[3];
       const char *logfile_name = 0x0;
       FILE *logfile = 0x0;
@@ -279,6 +280,9 @@ int main(int argc, char*argv[])
 
 /*
  * $Log: main.cc,v $
+ * Revision 1.29  2002/07/15 00:21:42  steve
+ *  Fix initialization of symbol table string heap.
+ *
  * Revision 1.28  2002/07/05 20:08:44  steve
  *  Count different types of functors.
  *
diff --git a/vvp/symbols.cc b/vvp/symbols.cc
index 51532a64d..ffe308bf7 100644
--- a/vvp/symbols.cc
+++ b/vvp/symbols.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: symbols.cc,v 1.8 2002/07/09 03:20:51 steve Exp $"
+#ident "$Id: symbols.cc,v 1.9 2002/07/15 00:21:42 steve Exp $"
 #endif
 
 # include  "symbols.h"
@@ -120,6 +120,7 @@ symbol_table_t new_symbol_table(void)
       tbl->root->parent = 0;
 
       tbl->str_chunk = new key_strings;
+      tbl->str_chunk->next = 0;
       tbl->str_used = 0;
 
       return tbl;
@@ -421,6 +422,9 @@ symbol_value_t sym_get_value(symbol_table_t tbl, const char*key)
 
 /*
  * $Log: symbols.cc,v $
+ * Revision 1.9  2002/07/15 00:21:42  steve
+ *  Fix initialization of symbol table string heap.
+ *
  * Revision 1.8  2002/07/09 03:20:51  steve
  *  Fix split of root btree node.
  *