Index: /trunk/source/lib/misc.lisp
===================================================================
--- /trunk/source/lib/misc.lisp	(revision 13400)
+++ /trunk/source/lib/misc.lisp	(revision 13401)
@@ -1167,5 +1167,5 @@
    table.  Usage is equivalent to regular CONS."
   (loop
-    (let ((cell (%atomic-pop-static-cons)))
+    (let ((cell (without-interrupts (%atomic-pop-static-cons))))
       (if cell
         (progn