--- 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;