--- linux/mm/page_alloc.c	Sat Apr  6 08:28:24 2002
+++ linux-2.4.19-pre5-mjc/mm/page_alloc.c	Sat Apr  6 09:30:25 2002
@@ -378,7 +378,7 @@
 /*
  * This is the 'heart' of the zoned buddy allocator:
  */
-struct page * __alloc_pages(unsigned int gfp_mask, unsigned int order, zonelist_t *zonelist)
+struct page * ____alloc_pages(unsigned int gfp_mask, unsigned int order, zonelist_t *zonelist)
 {
 	zone_t **zone;
 	int min, direct_reclaim = 0;
@@ -621,6 +621,19 @@
 	/* No luck.. */
 //	printk(KERN_ERR "__alloc_pages: %lu-order allocation failed.\n", order);
 	return NULL;
+}
+
+struct page * __alloc_pages(unsigned int gfp_mask, unsigned int order, zonelist_t *zonelist)
+{
+	struct page *ret = ____alloc_pages(gfp_mask, order, zonelist);
+
+	if (ret == 0) {
+		printk("%s: %d-order allocation failed.  gfp_mask=0x%x\n",
+			__FUNCTION__, order, gfp_mask);
+		if (gfp_mask == GFP_HIGHUSER)
+			printk("uh-oh.  It was GFP_HIGHUSER\n");
+	}
+	return ret;
 }
 
 /*