Index: /trunk/source/objc-bridge/objc-support.lisp
===================================================================
--- /trunk/source/objc-bridge/objc-support.lisp	(revision 14376)
+++ /trunk/source/objc-bridge/objc-support.lisp	(revision 14377)
@@ -108,5 +108,5 @@
 
 
-(defvar *class-init-keywords* (make-hash-table))
+(defvar *class-init-keywords* (make-hash-table :test #'eq))
 
 (defun process-init-message (message-info)