Index: oup/current/FileClasses/_Extensions.pas
===================================================================
--- oup/current/FileClasses/_Extensions.pas	(revision 243)
+++ oup/current/FileClasses/_Extensions.pas	(revision 244)
@@ -26,4 +26,5 @@
       function GetChild(ID: Integer): TTreeElement; override;
       function GetCaption: String; override;
+      function GetType: String; override;
     private
       FExtensions: array of TExtension;
@@ -103,5 +104,5 @@
 function TExtensions.GetCaption: String;
 begin
-  Result := '';
+  Result := 'Extensions';
 end;
 
@@ -157,4 +158,9 @@
 end;
 
+function TExtensions.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtensions.AddExt(Ext: String);
 var