diff --git a/src/code/exports.lisp b/src/code/exports.lisp
index a6dcc0b198214571bc4b14b75a80d5ecc1786438..556a20ea7d9810c953e2c7868a68115835a76a0c 100644
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -1165,6 +1165,7 @@
 	   "COMPATIBLE-FUNCTION-TYPES-P"
 	   "FLOAT-INVALID-OP-1-BYTE"
 	   "FLOAT-INVALID-OP-2-BYTE"
+	   "FLOAT-EXCEPTIONS-SUMMARY-BYTE"
 	   "GET-FP-OPERANDS"
 	   "FUSED-MULTIPLY-ADD"
 	   "FUSED-MULTIPLY-SUBTRACT")
diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index cc2c5bac2f075c7f9882381f42488a509e5944b3..dda73ebc546070fdb616a937628aed8d6ce5537a 100644
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -67,7 +67,8 @@
 	  float-imprecise-trap-bit float-invalid-trap-bit
 	  float-divide-by-zero-trap-bit
 	  float-invalid-op-1-byte
-	  float-invalid-op-2-byte))
+	  float-invalid-op-2-byte
+	  float-exceptions-summary-byte))
 
 #+double-double
 (export '(double-double-float-digits))