diff --git a/ChangeLog b/ChangeLog
index 752fc38..b180b2f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,15 +1,19 @@
 
 RCS file: RCS/imapsync,v
 Working file: imapsync
-head: 1.30
+head: 1.31
 branch:
 locks: strict
 access list:
 symbolic names:
 keyword substitution: kv
-total revisions: 30;	selected revisions: 30
+total revisions: 31;	selected revisions: 31
 description:
 ----------------------------
+revision 1.31
+date: 2003/08/28 16:07:28;  author: gilles;  state: Exp;  lines: +5 -5
+Fixed bug converting separators
+----------------------------
 revision 1.30
 date: 2003/08/27 16:40:38;  author: gilles;  state: Exp;  lines: +9 -5
 Added output separators
diff --git a/README b/README
index 0391b9c..c7dab01 100644
--- a/README
+++ b/README
@@ -1,7 +1,7 @@
 NAME
     imapsync - synchronize mailboxes between two imap servers.
 
-    $Revision: 1.30 $
+    $Revision: 1.31 $
 
 INSTALL
      Get imapsync at http://www.linux-france.org/prj/imapsync/dist/
@@ -126,5 +126,5 @@ SIMILAR SOFTWARES
 
     Feedback (good or bad) will be always welcome.
 
-    $Id: imapsync,v 1.30 2003/08/27 16:40:38 gilles Exp $
+    $Id: imapsync,v 1.31 2003/08/28 16:07:28 gilles Exp $
 
diff --git a/VERSION b/VERSION
index 57432cb..d0911c8 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.30
+1.31
diff --git a/imapsync b/imapsync
index dc1685b..8ff8968 100755
--- a/imapsync
+++ b/imapsync
@@ -4,7 +4,7 @@
 
 imapsync - synchronize mailboxes between two imap servers.
 
-$Revision: 1.30 $
+$Revision: 1.31 $
 
 =head1 INSTALL
 
@@ -146,7 +146,7 @@ Rate imapsync : http://freshmeat.net/projects/imapsync/
 
 Feedback (good or bad) will be always welcome.
 
-$Id: imapsync,v 1.30 2003/08/27 16:40:38 gilles Exp $
+$Id: imapsync,v 1.31 2003/08/28 16:07:28 gilles Exp $
 
 =cut
 
@@ -169,12 +169,12 @@ my(
 use vars qw ($opt_G); # missing code for this will be option.
 
 
-$rcs = ' $Id: imapsync,v 1.30 2003/08/27 16:40:38 gilles Exp $ ';
+$rcs = ' $Id: imapsync,v 1.31 2003/08/28 16:07:28 gilles Exp $ ';
 $rcs =~ m/,v (\d+\.\d+)/;
 $VERSION = ($1) ? $1 : "UNKNOWN";
 $error=0;
 
-my $banner = '$RCSfile: imapsync,v $ ' . '$Revision: 1.30 $ ' . '$Date: 2003/08/27 16:40:38 $ ' . "\n";
+my $banner = '$RCSfile: imapsync,v $ ' . '$Revision: 1.31 $ ' . '$Date: 2003/08/28 16:07:28 $ ' . "\n";
 
 
 get_options();
@@ -269,7 +269,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
 	my $t_fold;
 	print "From Folder [$f_fold]\n";
 	$t_fold = $f_fold;
-	$t_fold =~ s@\$f_sep@\$t_sep@g;
+	$t_fold =~ s@\Q$f_sep@$t_sep@g unless ($f_sep eq $t_sep);
 	print "To   Folder [$t_fold]\n";
 	unless ($from->select($f_fold)) {
 		warn 
diff --git a/zz b/zz
new file mode 100644
index 0000000..4be32ee
--- /dev/null
+++ b/zz
@@ -0,0 +1,16 @@
+
+my $f_sep="/";
+my $t_sep=".";
+
+foreach my $f_fold ("testsub/testsub3", "testsub.testsub3" ) {
+	my $t_fold;
+	print "From Folder [$f_fold]\n";
+	$t_fold = $f_fold;
+	my $t_fold2 = $f_fold;
+	$t_fold  =~ s@\Q$f_sep@$t_sep@g;
+	$t_fold2 =~ s@\Q$t_sep@$f_sep@g;
+	#$t_fold =~ s@/@.@g;
+	print "To /.  Folder [$t_fold]\n";
+	print "To ./  Folder2[$t_fold2]\n\n";
+	
+}