diff --git a/vpi/sys_vcd.c b/vpi/sys_vcd.c
index 8ab74cbf3..9b882b07a 100644
--- a/vpi/sys_vcd.c
+++ b/vpi/sys_vcd.c
@@ -261,7 +261,7 @@ static PLI_INT32 finish_cb(p_cb_data cause)
 
       for (cur = vcd_list ;  cur ;  cur = next) {
 	    next = cur->next;
-	    free(cur->ident);
+	    free((char *)cur->ident);
 	    free(cur);
       }
       vcd_names_delete(&vcd_tab);