--- IMB-3.1/src/IMB_window.c.~1~	2009-05-13 14:44:42.000000000 -0700
+++ IMB-3.1/src/IMB_window.c	2009-05-13 14:45:44.000000000 -0700
@@ -140,6 +140,10 @@
                          c_info->rank, 0, 1, c_info->r_data_type, c_info->WIN);
           MPI_ERRHAND(ierr);
           }
+          /* JMS Added a call to MPI_WIN_FENCE here, per MPI-2.1
+             11.2.1 */
+          ierr = MPI_Win_fence(0, c_info->WIN);
+          MPI_ERRHAND(ierr);
           ierr = MPI_Win_free(&c_info->WIN);
           MPI_ERRHAND(ierr);
 	}