diff --git a/ChangeLog b/ChangeLog
index 915b17aa4..af071112b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-13  Adam Fedor  <fedor@gnu.org>
+
+	* Source/NSBundle.m (_bundle_name_first_match): Remove path
+	extension when comparing name (fixes #10611)
+
 2004-10-13 Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/Additions/GSXML.m: Fix bug escaping XML special chartacters.
diff --git a/Source/NSBundle.m b/Source/NSBundle.m
index b688bf741..ebdd61f87 100644
--- a/Source/NSBundle.m
+++ b/Source/NSBundle.m
@@ -211,7 +211,7 @@ _bundle_name_first_match(NSString* directory, NSString* name)
   /* name might have a directory in it also, so account for this */
   path = [[directory stringByAppendingPathComponent: name] 
     stringByDeletingLastPathComponent];
-  cleanname = [name lastPathComponent];
+  cleanname = [[name lastPathComponent] stringByDeletingPathExtension];
   filelist = [[mgr directoryContentsAtPath: path] objectEnumerator];
   while ((match = [filelist nextObject]))
     {