Index: /tags/ipp-20110622/Nebulous/lib/Nebulous/Client.pm
===================================================================
--- /tags/ipp-20110622/Nebulous/lib/Nebulous/Client.pm	(revision 31850)
+++ /tags/ipp-20110622/Nebulous/lib/Nebulous/Client.pm	(revision 31851)
@@ -262,4 +262,13 @@
     $log->debug( "copied instance" );
 
+    # Force a flush to disk
+    {
+	my $disk_file_name = $uri->path;
+#	print ">> $disk_file_name <<\n";
+	system("glockfile $disk_file_name xcld 0");
+	unless (($? >> 8) == 0) {
+	    $log->logdie( "can not create a lock on $key at $uri" );
+	}
+    }
     close( $fh ) or $log->logdie( "can not close $key" );
     close( $new_fh ) or $log->logdie( "can not close $key" );
Index: /tags/ipp-20110622/Ohana/src/tools/src/glockfile.c
===================================================================
--- /tags/ipp-20110622/Ohana/src/tools/src/glockfile.c	(revision 31850)
+++ /tags/ipp-20110622/Ohana/src/tools/src/glockfile.c	(revision 31851)
@@ -35,5 +35,5 @@
   }
 
-  fprintf (stderr, "file is locked\n");
+  //  fprintf (stderr, "file is locked\n");
   sleep (holdtime);
   fclearlockfile (filename, f, type, &state);