diff --git a/ChangeLog b/ChangeLog
index 38713fe8..444cbf7f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Sep 17 22:53:32 CEST 2003 Daniel Veillard <daniel@veillard.com>
+
+	* parserInternals.c: avoid a leak with previous patch
+
 Wed Sep 17 22:06:11 CEST 2003 Daniel Veillard <daniel@veillard.com>
 
 	* python/libxml.c: use stderr and not stdout for default errors
diff --git a/parserInternals.c b/parserInternals.c
index 5332eed5..02071b7b 100644
--- a/parserInternals.c
+++ b/parserInternals.c
@@ -2168,6 +2168,7 @@ xmlNewInputFromFile(xmlParserCtxtPtr ctxt, const char *filename) {
     }
 
     inputStream->filename = (char *) xmlCanonicPath((const xmlChar *) URI);
+    if (URI != NULL) xmlFree((char *) URI);
     inputStream->directory = directory;
     inputStream->buf = buf;