diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp
index 98664d9ae..db8ae46e3 100644
--- a/src/lsp/ffi.lsp
+++ b/src/lsp/ffi.lsp
@@ -380,7 +380,7 @@
   ;; This enforces that the string contains only as many characters as the
   ;; fill-pointer determines Since ECL always sets a 0 character after the
   ;; last element of a string, this way, the string is always zero-terminated
-  (copy-seq object))
+  `(copy-seq ,object))
 
 (defmacro free-cstring (object)
   object)
@@ -521,7 +521,7 @@
     (let* ((return-type (ffi::%convert-to-return-type returning))
 	   (return-required (not (eq return-type :void)))
 	   (argtypes (mapcar #'(lambda (a) (ffi::%convert-to-arg-type (second a))) args)))
-      `(let ((c-fun (si::find-foreign-symbol ,c-name ,module :pointer-void 0)))
+      `(let ((c-fun (si::find-foreign-symbol ',c-name ,module :pointer-void 0)))
 	(defun ,lisp-name ,(mapcar #'first args)
 	  (si::call-cfun c-fun ',return-type ',argtypes (list ,@(mapcar #'first args)) ,call))))))