diff --git a/tbsetup/libArchive.pm.in b/tbsetup/libArchive.pm.in
index d1a992acfcd238670159daf9e552f76e16deda03..79b0da3303f755938e369324f42f10d32e972d90 100644
--- a/tbsetup/libArchive.pm.in
+++ b/tbsetup/libArchive.pm.in
@@ -917,6 +917,17 @@ sub ArchiveArchive($$)
 	    "Archive '$archive_idx' already archived on $date_archived!\n";
 	return 0;
     }
+
+    # Is it shared? If so, certainly do not archive it!
+    my $shared;
+    if (IsArchiveShared($archive_idx, \$shared) < 0) {
+	return -1;
+    }
+    if ($shared) {
+	print STDERR "ArchiveArchive: ".
+	    "Archive '$archive_idx' is shared; not archiving!\n";
+	return 0;
+    }
     
     if (! -d $directory || ! -w $directory) {
 	print STDERR "ArchiveArchive: $directory cannot be written!\n";