diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index 13e418c7e90c4510684d1a85bc206493b2a28ec2..0db19f6e161a5d425c354f6fa59991b0ac9302c1 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.80 1997/12/05 00:48:36 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.81 1997/12/07 17:46:04 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -985,11 +985,10 @@
   "Returns the top frame of the control stack as it was before calling this
    function."
   (multiple-value-bind (fp pc)
-		       (kernel:%caller-frame-and-pc)
+      (kernel:%caller-frame-and-pc)
     (possibly-an-interpreted-frame
      (compute-calling-frame (descriptor-sap fp)
-			    #-(or gengc x86) pc
-			    #+(or gengc x86) (descriptor-sap pc)
+			    #-gengc pc #+gengc (descriptor-sap pc)
 			    nil)
      nil)))