diff --git a/src/ChangeLog b/src/ChangeLog
index 6694febd..5b3c00a9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-11  Hack Kampbj-Aørn  <hack@hackdata.com>-B
+
+	* url.c (parseurl): Debug-print u->ftp_type.
+
 2001-02-11  Hrvoje Niksic  <hniksic@arsdigita.com>
 
 	* ftp.c (ftp_loop_internal): Disable padding.
diff --git a/src/url.c b/src/url.c
index 2ef99998..ea3b6453 100644
--- a/src/url.c
+++ b/src/url.c
@@ -497,6 +497,7 @@ parseurl (const char *url, struct urlinfo *u, int strict)
       /* #### We don't handle type `d' correctly yet.  */
       if (!u->ftp_type || TOUPPER (u->ftp_type) == 'D')
 	u->ftp_type = 'I';
+      DEBUGP (("ftp_type %c -> ", u->ftp_type));
     }
   DEBUGP (("opath %s -> ", u->path));
   /* Parse the username and password (if existing).  */