diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp
index 49ecf90db..680b71656 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -224,7 +224,7 @@
 	   (otherwise
 	    (coercion-error))))
 	((:cstring)
-	 (coercion error))
+	 (coercion-error))
 	((:char*)
 	 (case loc-rep-type
 	   ((:object)
@@ -232,7 +232,7 @@
 	   ((:pointer-void)
 	    (wt "(char *)(" loc ")"))
 	   (otherwise
-	    (coercion error))))
+	    (coercion-error))))
 	(t
 	 (coercion-error))))))