Index: /trunk/ccl/lisp-kernel/pmcl-kernel.c
===================================================================
--- /trunk/ccl/lisp-kernel/pmcl-kernel.c	(revision 218)
+++ /trunk/ccl/lisp-kernel/pmcl-kernel.c	(revision 219)
@@ -1258,5 +1258,7 @@
 
   lisp_global(ALTIVEC_PRESENT) = altivec_present << fixnumshift;
-
+#if STATIC
+  lisp_global(STATICALLY_LINKED) = 1 << fixnumshift;
+#endif
   tcr->prev = tcr->next = tcr;
   lisp_global(TCR_LOCK) = (LispObj)new_recursive_lock();