Index: /trunk/ccl/compiler/backend.lisp
===================================================================
--- /trunk/ccl/compiler/backend.lisp	(revision 4956)
+++ /trunk/ccl/compiler/backend.lisp	(revision 4957)
@@ -57,5 +57,6 @@
   (platform-syscall-mask 0)
   (define-callback nil)
-  (defcallback-body nil))
+  (defcallback-body nil)
+  (lisp-context-register 0))
 
 (defmethod print-object ((b backend) s)