diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38651d42596..ca8545d7ccd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-10-01  Per Starbäck  <per@starback.se>
+
+	* pcmpl-gnu.el (pcomplete/tar): Fix tar-header-name call.  (Bug#9643)
+
 2011-09-30  Martin Rudalics  <rudalics@gmx.at>
 
 	* startup.el (command-line-1): Fix last fix by inserting
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index 62f5fafe2c4..6bc4f7625bb 100644
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -298,7 +298,7 @@
 		  (mapcar
 		   (function
 		    (lambda (entry)
-		      (tar-header-name (cdr entry))))
+		      (tar-header-name entry)))
 		   tar-parse-info))
 	      (pcomplete-entries))
 	    nil 'identity))))