diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp
index 430163f27..8b745d871 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -263,7 +263,7 @@
 		(elt arg-types ndx) :char*)
 	  (return-from c1c-inline
 	    (c1expr
-	     `(ffi::with-ctring (,var ,value)
+	     `(ffi::with-cstring (,var ,value)
 	       (c-inline ,arguments ,arg-types ,output-type ,c-expression
 		,@rest)))))))
     ;; Find out the output types of the inline form. The syntax is rather relax