diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index d7bab6f6248c40cd79a1c6bfa5d159c4d127ad96..09958839162fa27c3ceb3b0b71da081a4e56e619 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -331,7 +331,7 @@
 		 (error 'arithmetic-error
 			:operation fop
 			:operands operands)
-		 (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D"
+		 (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D)"
 			code)))))))
 
 ;;; WITH-FLOAT-TRAPS-MASKED  --  Public