diff --git a/lisp/interr.c b/lisp/interr.c
index 5e892139e3bde99b9fb8d28496cb535ca1eba0b9..a5fffc0ce06387581f88bbdbafcb4844f512fd61 100644
--- a/lisp/interr.c
+++ b/lisp/interr.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.3 1997/01/21 00:28:13 ram Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.4 2000/09/04 15:35:52 dtc Exp $
  *
  * Stuff to handle internal errors.
  *
@@ -118,15 +118,22 @@ void internal_error(struct sigcontext *context)
 	  case sc_UnsignedReg:
 	    printf("\t%u\n", SC_REG(context, offset));
 	    break;
-#ifdef sc_SingleFloatReg
-	  case sc_SingleFloatReg:
-	    printf("\t%g\n", *(float *)&context->sc_fpregs[offset]);
+#if 0 /* broken */
+#ifdef sc_SingleReg
+	  case sc_SingleReg:
+	    printf("\t%g\n", *(float *) &context->sc_fpregs[offset]);
 	    break;
 #endif
-#ifdef sc_DoubleFloatReg
-	  case sc_DoubleFloatReg:
-	    printf("\t%g\n", *(double *)&context->sc_fpregs[offset]);
+#ifdef sc_DoubleReg
+	  case sc_DoubleReg:
+	    printf("\t%g\n", *(double *) &context->sc_fpregs[offset]);
 	    break;
+#endif
+#ifdef sc_LongReg
+	  case sc_LongReg:
+	    printf("\t%Lg\n", *(long double *) &context->sc_fpregs[offset]);
+	    break;
+#endif
 #endif
 	  default:
 	    printf("\t???\n");