diff --git a/docs/changelog/5.x.x.txt b/docs/changelog/5.x.x.txt
index cd68235e6..5c70cce41 100644
--- a/docs/changelog/5.x.x.txt
+++ b/docs/changelog/5.x.x.txt
@@ -24,7 +24,8 @@
  - Fixed bug [ 839524 ] Editing forum settings defaults all template names
  - Fixed bug [ 841194 ] denied post security problem
  - Added a check for malicious mail headers
- 
+ - Fixed bug [ 820144 ] Theme problems under Win32
+
 
 5.5.0
  - Rewrote the discussion system and added many new features in the process.
diff --git a/lib/WebGUI/Node.pm b/lib/WebGUI/Node.pm
index 333d2d695..16e2bf0d0 100644
--- a/lib/WebGUI/Node.pm
+++ b/lib/WebGUI/Node.pm
@@ -201,7 +201,14 @@ sub tar {
 	chdir $self->getPath;
 	my $temp = WebGUI::Node->new($node1,$node2);
 	$temp->create;
-	Archive::Tar->create_archive($temp->getPath.$session{os}{slash}.$filename,1,$_[0]->getFiles);
+	if ($Archive::Tar::VERSION eq '0.072') {
+		my $tar = Archive::Tar->new();
+		$tar->add_files($_[0]->getFiles);
+		$tar->write($temp->getPath.$session{os}{slash}.$filename,1);
+		
+	} else {
+		Archive::Tar->create_archive($temp->getPath.$session{os}{slash}.$filename,1,$_[0]->getFiles);
+	}
 }
 
 #-------------------------------------------------------------------