Index: /trunk/ccl/level-1/l1-dcode.lisp
===================================================================
--- /trunk/ccl/level-1/l1-dcode.lisp	(revision 6188)
+++ /trunk/ccl/level-1/l1-dcode.lisp	(revision 6189)
@@ -515,6 +515,6 @@
 			       (ash 1 $lfbits-method-bit)))))))
 
-(defglobal *generic-function-class-wrapper* nil)
-(defglobal *standard-generic-function-class-wrapper* nil)
+(defstatic *generic-function-class-wrapper* nil)
+(defstatic *standard-generic-function-class-wrapper* nil)
 
 (defun generic-function-p (thing)