Index: trunk/Nebulous/lib/Nebulous/Client.pm
===================================================================
--- trunk/Nebulous/lib/Nebulous/Client.pm	(revision 31849)
+++ trunk/Nebulous/lib/Nebulous/Client.pm	(revision 31850)
@@ -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: trunk/Ohana/src/tools/src/glockfile.c
===================================================================
--- trunk/Ohana/src/tools/src/glockfile.c	(revision 31849)
+++ trunk/Ohana/src/tools/src/glockfile.c	(revision 31850)
@@ -35,5 +35,5 @@
   }
 
-  fprintf (stderr, "file is locked\n");
+  //  fprintf (stderr, "file is locked\n");
   sleep (holdtime);
   fclearlockfile (filename, f, type, &state);