diff --git a/pcl/slots.lisp b/pcl/slots.lisp
index b940b3c5e51b12336f2a79c3595da72186390336..53ed544bb1825eed63ea37fe15e508d4b0edd495 100644
--- a/pcl/slots.lisp
+++ b/pcl/slots.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.29 2008/03/25 15:05:54 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.30 2009/01/06 18:17:50 rtoy Rel $")
 ;;;
 
 (in-package :pcl)
@@ -100,6 +100,8 @@
 	      new-value))
     new-value))
 
+(defvar *allow-funny-slot-names* nil)
+
 ;; Return T if X is can be used as a legal slot name.  If X is not
 ;; legal, return two values: NIL and a string indicating why X is not
 ;; legal.
diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index fd6be9cf6e0e3c8ff36328a2405daf29284e92ef..022fd1a9396c9b12b0a42f71db51eb278dc11d7f 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.83 2008/05/24 14:41:39 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.84 2009/01/06 18:17:50 rtoy Rel $")
 
 (in-package :pcl)
 
@@ -1111,8 +1111,6 @@
     (mapc #'initialize-internal-slot-functions eslotds)
     eslotds))
 
-(defvar *allow-funny-slot-names* nil)
-
 (defmethod initialize-internal-slot-functions :around
     ((slotd structure-effective-slot-definition))
   (let ((*allow-funny-slot-names* t))