diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index 602ffec36dce38a7dc188b3df75d769bbf131f56..e49dfe3970fcc828dd451088b6d1a05675f27318 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.98 2000/11/06 18:08:16 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.99 2000/11/15 11:42:58 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -947,10 +947,15 @@
 						   :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 lisp fram.
+		      ;; Both still seem valid - choose the lisp frame.
 		      (when (zerop depth)
 			(format t "Debug: Both still valid ~s ~s ~s ~s~%"
 				lisp-ocfp lisp-ra c-ocfp c-ra))
+		      #+FreeBSD4
+		      (if (sap> lisp-ocfp c-ocfp)
+			  (values lisp-ra lisp-ocfp)
+			  (values c-ra c-ocfp))
+		      #-FreeBSD4
 		      (values lisp-ra lisp-ocfp))
 		     (lisp-path-fp
 		      ;; The lisp convention is looking good.