--- p/typecheck.c.orig	Thu Apr  8 14:20:56 2004
+++ p/typecheck.c	Thu Apr  8 18:50:53 2004
@@ -386,7 +386,7 @@
     case FUNCTION_TYPE:
       {
         tree args1, args2;
-        if (!comptypes (TREE_TYPE (t1), TREE_TYPE (t2)))
+        if (!strictly_comp_types (TREE_TYPE (t1), TREE_TYPE (t2)))
           return 0;
         for (args1 = TYPE_ARG_TYPES (t1), args2 = TYPE_ARG_TYPES (t2); args1 && args2;
              args1 = TREE_CHAIN (args1), args2 = TREE_CHAIN (args2))