diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog
index 3edc73c5768..edfddc97ba7 100644
--- a/gcc/cp/ChangeLog
+++ b/gcc/cp/ChangeLog
@@ -1,5 +1,7 @@
 Tue Sep 16 14:06:56 1997  Jason Merrill  <jason@yorick.cygnus.com>
 
+	* call.c (compare_qual): Handle pmfs.
+
 	* decl.c (store_parm_decls): last_parm_cleanup_insn is the insn
  	after the exception spec.
 
diff --git a/gcc/cp/call.c b/gcc/cp/call.c
index af1f6af0be8..6836a6c5cdd 100644
--- a/gcc/cp/call.c
+++ b/gcc/cp/call.c
@@ -5603,6 +5603,11 @@ compare_qual (ics1, ics2)
   tree to1 = TREE_TYPE (ics1);
   tree to2 = TREE_TYPE (ics2);
 
+  if (TYPE_PTRMEMFUNC_P (to1))
+    to1 = TYPE_PTRMEMFUNC_FN_TYPE (to1);
+  if (TYPE_PTRMEMFUNC_P (to2))
+    to2 = TYPE_PTRMEMFUNC_FN_TYPE (to2);
+
   to1 = TREE_TYPE (to1);
   to2 = TREE_TYPE (to2);