diff --git a/cadpli/cadpli.c b/cadpli/cadpli.c
index 14e7fac68..94fceb5ec 100644
--- a/cadpli/cadpli.c
+++ b/cadpli/cadpli.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: cadpli.c,v 1.5 2003/08/26 16:26:02 steve Exp $"
+#ident "$Id: cadpli.c,v 1.6 2004/09/05 21:19:51 steve Exp $"
 #endif
 
 # include  <vpi_user.h>
@@ -37,7 +37,7 @@ static void thunker_register(void)
       struct t_vpi_vlog_info vlog_info;
       void*mod;
       void*boot;
-      void*tf;
+      struct t_tfcell*tf;
       int idx;
 
       vpi_get_vlog_info(&vlog_info);
@@ -53,7 +53,7 @@ static void thunker_register(void)
 	    bp = strchr(cp, ':');
 	    assert(bp);
 
-	    module = malloc(bp-cp+1);
+	    module = (char*)malloc(bp-cp+1);
 	    strncpy(module, cp, bp-cp);
 	    module[bp-cp] = 0;
 
@@ -76,7 +76,7 @@ static void thunker_register(void)
 	    free(module);
 	    assert(boot);
 
-	    tf = (*((funcvp)boot))();
+	    tf = (struct t_tfcell*) (*((funcvp)boot))();
 	    assert(tf);
 
 	    veriusertfs_register_table(tf);
@@ -91,6 +91,9 @@ void (*vlog_startup_routines[])() = {
 
 /*
  * $Log: cadpli.c,v $
+ * Revision 1.6  2004/09/05 21:19:51  steve
+ *  Better type safety.
+ *
  * Revision 1.5  2003/08/26 16:26:02  steve
  *  ifdef idents correctly.
  *