--- oup/current/Settings.pas	2007/02/22 00:37:39	112
+++ oup/current/Settings.pas	2007/05/27 20:03:41	204
@@ -39,6 +39,7 @@ function ExtensionRegistered(ext: String
 var
   ftr: TFileTypeRegistration;
 begin
+  Result := True;
   ftr := TFileTypeRegistration.Create;
   if (ftr <> nil) then
   begin
@@ -60,7 +61,6 @@ function TForm_Settings.RegisterExtensio
 var
   ftr:     TFileTypeRegistration;
   temps:   String;
-  warnmsg: String;
 begin
   Result := -1;
   ftr := TFileTypeRegistration.Create;