Minor bug fix.

apt/create_instance.in

 #!/usr/bin/perl -w
 #
-# Copyright (c) 2008-2015 University of Utah and the Flux Group.
+# Copyright (c) 2008-2016 University of Utah and the Flux Group.
 # 
 # {{{GENIPUBLIC-LICENSE
 # 
@@ -1256,6 +1256,8 @@ sub CreateSlivers()
 {
     my ($perrmsg) = @_;
 
+    $instance->SetStatus("provisioning");
+    
     my @return_codes = ();
     if (ParRun({"maxwaittime" => 99999,
 		"maxchildren" => scalar(@aggregate_list)},