Sort the "find objects of type" select list alpahbetically in the find form.

lib/python/OFS/dtml/findForm.dtml

@@ -20,9 +20,15 @@ find option.
   <div class="form-element">
   <SELECT NAME="obj_metatypes:list" SIZE="4" MULTIPLE>
   <OPTION VALUE="all" SELECTED> All types
-<dtml-in all_meta_types mapping>
-  <OPTION VALUE="<dtml-var name html_quote>"> <dtml-var name>
-</dtml-in>
+<dtml-let sorted_meta_types="[]">
+  <dtml-in all_meta_types mapping>
+  <dtml-call "sorted_meta_types.append(name)">
+  </dtml-in>
+  <dtml-call "sorted_meta_types.sort()">
+  <dtml-in sorted_meta_types>
+  <OPTION VALUE="<dtml-var sequence-item html_quote>"><dtml-var sequence-item>
+  </dtml-in>
+</dtml-let>
   </SELECT>
   </div>
   </TD>