--- a/src/load-path.cc	Tue May 26 11:20:40 2009 -0400
+++ b/src/load-path.cc	Tue May 26 12:00:00 2009 -0400
@@ -1337,7 +1337,7 @@
 }
 
 string_vector
-load_path::do_files (const std::string& dir) const
+load_path::do_files (const std::string& dir, bool omit_exts) const
 {
   string_vector retval;
 
@@ -1346,6 +1346,21 @@
   if (i != dir_info_list.end ())
     retval = i->fcn_files;
 
+  if (omit_exts)
+    {
+      octave_idx_type len = retval.length ();
+
+      for (octave_idx_type i = 0; i < len; i++)
+	{
+	  std::string fname = retval[i];
+
+	  size_t pos = fname.rfind ('.');
+
+	  if (pos != std::string::npos)
+	    retval[i] = fname.substr (0, pos);
+	}
+    }
+
   return retval;
 }