diff --git a/archiver/ChangeLog b/archiver/ChangeLog
index 0f4b0aea8..835e85ab1 100644
--- a/archiver/ChangeLog
+++ b/archiver/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-12  Bradford Hovinen  <hovinen@ximian.com>
+
+	* archive.c (archive_destroy): Clear appropriate global archive pointer
+
 2001-07-12  Chema Celorio  <chema@celorio.com>
 
 	* Makefile.am (INCLUDES): update to the new location for the xst backends
diff --git a/archiver/archive.c b/archiver/archive.c
index 2dde9af7f..c49b0ef66 100644
--- a/archiver/archive.c
+++ b/archiver/archive.c
@@ -298,6 +298,11 @@ archive_destroy (GtkObject *object)
 
 	GTK_OBJECT_CLASS (parent_class)->destroy (GTK_OBJECT (archive));
 
+	if (archive->is_global)
+		global_archive = NULL;
+	else
+		user_archive = NULL;
+
 	DEBUG_MSG ("Exit");
 }