diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index c9bafc759..24eab26a2 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -237,7 +237,7 @@
     (static-constant-delegate name-imag (imagpart value) stream)
     (terpri stream)
     (format stream
-	    "ecl_def_ct_complex(~A,&~Adata,&~Adata,static,const);"
+	    "ecl_def_ct_complex(~A,&~A_data,&~A_data,static,const);"
 	    name name-real name-imag)))
 
 #+sse2