diff --git a/ChangeLog b/ChangeLog
index 43cfbbd..e997b27 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Wed Jan 02 20:58:05 2002  Guillaume Morin  <gmorin@gnu.org>
+
+    * stow.in: fixed JoinPaths so that subdir called "0" are
+      correctly pushed. Thanks a lot to Gergely Nagy
+	  <algernon@bonehunter.rulez.org> who patiently helped me to chase 
+	  this bug.
+
 Sun Dec 30 21:58:25 2001  Guillaume Morin  <gmorin@gnu.org>
 
     * stow.in: fixed a bug introduced by previous changes when
diff --git a/stow.in b/stow.in
index 28a0650..1236058 100644
--- a/stow.in
+++ b/stow.in
@@ -181,7 +181,7 @@ sub JoinPaths {
   foreach $x (@_) {
     @parts = split(/\/+/, $x);
     foreach $y (@parts) {
-      push(@paths, $y) if $y;
+      push(@paths, $y) if ($y ne "");
     }
   }
   $result .= join('/', @paths);