diff --git a/code/ntrace.lisp b/code/ntrace.lisp
index a401656db3937dd6ae6a4001319a3d29c34bf975..e481afa0db1bcd902882c69e5cbd70cf7e64c56c 100644
--- a/code/ntrace.lisp
+++ b/code/ntrace.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.38 2007/08/02 21:30:07 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.39 2007/09/13 04:11:44 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -60,7 +60,7 @@
 ;;; A hash-table that maps each traced function to the TRACE-INFO.  The entry
 ;;; for a closure is the shared function-entry object.
 ;;;
-(defvar *traced-functions* (make-hash-table :test #'eq))
+(defvar *traced-functions* (make-hash-table :test #'equal))
 
 ;;; The TRACE-INFO structure represents all the information we need to trace a
 ;;; given function.
diff --git a/pcl/braid.lisp b/pcl/braid.lisp
index e3596c0e411cee0711eb63207ad22aedf056d9a4..4b1021773f666a6766d0b3f7d4ecc7cb4efcb744 100644
--- a/pcl/braid.lisp
+++ b/pcl/braid.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.48 2003/08/25 20:10:41 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.49 2007/09/13 04:11:45 rtoy Exp $")
 
 ;;;
 ;;; Bootstrapping the meta-braid.
@@ -631,6 +631,7 @@
 	(setf (kernel::find-class name) kernel-class
 	      (kernel:%class-name kernel-class) name)))))
 
+#+nil
 (defun lisp::sxhash-instance (instance)
   (get-hash instance))
 
diff --git a/pcl/low.lisp b/pcl/low.lisp
index 0126029bea9ace2f43337a22ec9429f68cedff9d..507693cde01d89d9d7661b551b659d3480f838a6 100644
--- a/pcl/low.lisp
+++ b/pcl/low.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.33 2005/08/18 16:55:01 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.34 2007/09/13 04:11:45 rtoy Exp $")
 
 ;;; 
 ;;; This file contains optimized low-level constructs for PCL.
@@ -319,6 +319,9 @@ the compiler as completely as possible.  Currently this means that
 	 ((fsc-instance-p ,instance) (fsc-instance-hash ,instance))
 	 (t (internal-error "What kind of instance is this?"))))
 
+(defun lisp::sxhash-instance (instance)
+  (get-hash instance))
+
 (defmacro get-slots (inst)
   `(cond ((std-instance-p ,inst) (std-instance-slots ,inst))
 	 ((fsc-instance-p ,inst) (fsc-instance-slots ,inst))