Index: trunk/ippScripts/scripts/summit_copy.pl
===================================================================
--- trunk/ippScripts/scripts/summit_copy.pl	(revision 16375)
+++ trunk/ippScripts/scripts/summit_copy.pl	(revision 16379)
@@ -90,5 +90,5 @@
     unless ($success) {
 	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-	&my_die("Unable to perform dsget: $error_code", $exp_name, $inst, $telescope, $class, $class_id, $error_code);
+	&my_die("Unable to perform dsget: $error_code", $exp_name, $inst, $telescope, $class, $class_id, $uri, $error_code);
     }
 } else {
@@ -113,5 +113,5 @@
     unless ($success) {
 	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-	warn("Unable to perform pztool -copydone: $error_code\n");
+	warn("Unable to perform $command: $error_code\n");
 	exit($error_code);
     }
@@ -122,10 +122,11 @@
 sub my_die
 {
-    my $msg = shift; # Warning message on die
-    my $exp_name = shift; # Chiptool identifier
-    my $inst = shift; # Chiptool identifier
+    my $msg       = shift; # Warning message on die
+    my $exp_name  = shift; # Chiptool identifier
+    my $inst      = shift; # Chiptool identifier
     my $telescope = shift; # Class identifier
-    my $class = shift; # Class identifier
-    my $class_id = shift; # Class identifier
+    my $class     = shift; # Class identifier
+    my $class_id  = shift; # Class identifier
+    my $uri       = shift; # Class identifier
     my $exit_code = shift; # Exit code to add
 
@@ -140,4 +141,5 @@
 	$command .= " -class $class";
 	$command .= " -class_id $class_id";
+	$command .= " -uri $uri";
 	$command .= " -code $exit_code";
 	$command .= " -dbname $dbname" if defined $dbname;