--- a/tclreadline.c
+++ b/tclreadline.c
@@ -624,7 +624,7 @@
        = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
 
        rl_filename_quoting_function
-       = (CPFunction*) TclReadlineFilenameQuotingFunction;
+       = (rl_quote_func_t *) TclReadlineFilenameQuotingFunction;
      */
     /*
        rl_filename_quoting_desired = 1;