Index: /branches/1.1/ccl/lisp-kernel/pmcl-kernel.c
===================================================================
--- /branches/1.1/ccl/lisp-kernel/pmcl-kernel.c	(revision 8227)
+++ /branches/1.1/ccl/lisp-kernel/pmcl-kernel.c	(revision 8228)
@@ -1909,7 +1909,7 @@
 #ifndef WINDOWS
 void
-sample_paging_info(struct rusage *usage)
-{
-  getrusage(RUSAGE_SELF, rusage);
+sample_paging_info(paging_info *usage)
+{
+  getrusage(RUSAGE_SELF, usage);
 }
 
Index: /branches/1.1/ccl/lisp-kernel/ppc-gc.c
===================================================================
--- /branches/1.1/ccl/lisp-kernel/ppc-gc.c	(revision 8227)
+++ /branches/1.1/ccl/lisp-kernel/ppc-gc.c	(revision 8228)
@@ -2457,4 +2457,5 @@
   area *a = active_dynamic_area, *to = NULL, *from = NULL, *note = NULL;
   unsigned timeidx = 1;
+  paging_info paging_info_start;
   xframe_list *x;
   LispObj
@@ -2511,4 +2512,5 @@
     char buf[16];
 
+    sample_paging_info(&paging_info_start);
     comma_output_decimal(buf,16,area_dnode(oldfree,a->low) << dnode_shift);
     if (GCephemeral_low) {
@@ -2826,4 +2828,7 @@
       if (GCverbose) {
         char buf[16];
+        paging_info paging_info_stop;
+
+        sample_paging_info(&paging_info_stop);
         if (justfreed <= heap_segment_size) {
           justfreed = 0;
@@ -2837,4 +2842,5 @@
                   elapsed.tv_sec, elapsed.tv_usec);
         }
+        report_paging_info_delta(stderr, &paging_info_start, &paging_info_stop);
       }
     }