diff --git a/capplets/theme-switcher/ChangeLog b/capplets/theme-switcher/ChangeLog
index 3130450fa..2e49bee54 100644
--- a/capplets/theme-switcher/ChangeLog
+++ b/capplets/theme-switcher/ChangeLog
@@ -1,3 +1,10 @@
+2007-01-08  Thomas Wood  <thos@gnome.org>
+
+	Patch by: Alberto Ruiz <aruiz@synaptia.net>
+
+	* gnome-theme-installer.c: (gnome_theme_install_from_uri): Accept .gtp
+	as a file extension
+
 2007-01-08  Jan Arne Petersen <jap@gnome.org>
 
 	* Makefile.am: Updated CLEANFILES
diff --git a/capplets/theme-switcher/gnome-theme-installer.c b/capplets/theme-switcher/gnome-theme-installer.c
index 0a1de8445..b1c59b29e 100644
--- a/capplets/theme-switcher/gnome-theme-installer.c
+++ b/capplets/theme-switcher/gnome-theme-installer.c
@@ -579,7 +579,7 @@ gnome_theme_install_from_uri (gchar * theme_filename, GtkWindow *parent)
 			GtkWidget *dialog;
 		  	int len = strlen (base);
 		  
-		  	if (base && len > 7 && ( (!strcmp (base + len - 7, ".tar.gz")) || (!strcmp (base + len - 4, ".tgz")) ))
+		  	if (base && len > 7 && ( (!strcmp (base + len - 7, ".tar.gz")) || (!strcmp (base + len - 4, ".tgz")) || (!strcmp (base + len - 4, ".gtp"))))
 		    		file_tmp = g_strdup_printf("gnome-theme-%d.tar.gz", rand ());
 		  	else if (base && len > 8 && !strcmp (base + len - 8, ".tar.bz2"))
 		    		file_tmp = g_strdup_printf("gnome-theme-%d.tar.bz2", rand ());