Index: /trunk/ccl/level-1/l1-lisp-threads.lisp
===================================================================
--- /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 849)
+++ /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 850)
@@ -551,5 +551,5 @@
 ; Linked list of fake stack frames.
 ; %frame-backlink looks here
-(defvar *fake-stack-frames* nil)
+(def-standard-initial-binding *fake-stack-frames* nil)