diff --git a/src/cmp/cmpstructures.lsp b/src/cmp/cmpstructures.lsp
index ae649d853..4e55be339 100644
--- a/src/cmp/cmpstructures.lsp
+++ b/src/cmp/cmpstructures.lsp
@@ -100,7 +100,7 @@
 		  `(ext:compiler-typecase
 		    ,aux
 		    (,structure-name ,form)
-		    (t (ffi:c-inline (,aux ,structure-name ,index ,value)
+		    (t (ffi:c-inline (,aux ',structure-name ,index ,value)
 				     (:object :object :fixnum :object)
 				     :object
 				     "ecl_structure_set(#0,#1,#2,#3)"