diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index 8681ef9c17f4d39ba449ca9645ff11f81e536f2a..602ffec36dce38a7dc188b3df75d769bbf131f56 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.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/debug-int.lisp,v 1.97 2000/11/06 17:47:59 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.98 2000/11/06 18:08:16 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -947,13 +947,11 @@
 						   :depth (1+ depth)))
 		   (c-path-fp (x86-call-context c-ocfp :depth (1+ depth))))
 	       (cond ((and lisp-path-fp c-path-fp)
-		      ;; Both still seem valid - choose the smallest.
+		      ;; Both still seem valid - choose the lisp fram.
 		      (when (zerop depth)
 			(format t "Debug: Both still valid ~s ~s ~s ~s~%"
 				lisp-ocfp lisp-ra c-ocfp c-ra))
-		      (if (sap< lisp-ocfp c-ocfp)
-			  (values lisp-ra lisp-ocfp)
-			(values c-ra c-ocfp)))
+		      (values lisp-ra lisp-ocfp))
 		     (lisp-path-fp
 		      ;; The lisp convention is looking good.
 ;		      (format t "*C lisp-ocfp ~s ~s~%" lisp-ocfp lisp-ra)