Index: /trunk/source/lisp-kernel/gc-common.c
===================================================================
--- /trunk/source/lisp-kernel/gc-common.c	(revision 8201)
+++ /trunk/source/lisp-kernel/gc-common.c	(revision 8202)
@@ -909,4 +909,6 @@
     }
 
+    mark_root(lisp_global(STATIC_CONSES));
+
     {
       area *next_area;