diff --git a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
index 4800feccf..98980e86a 100644
--- a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
+++ b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
@@ -12,7 +12,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
   OnDropFiles = FormDropFiles
   OnShow = FormShow
   Position = poDesktopCenter
-  LCLVersion = '1.4.1.0'
+  LCLVersion = '1.6.1.0'
   object SB: TStatusBar
     Left = 0
     Height = 20
diff --git a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
index 7ecfe28c4..6ec5f3574 100644
--- a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
+++ b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
@@ -668,13 +668,15 @@ end;
 
 procedure TfWstTypeLibraryEdit.actSaveXSDExecute(Sender : TObject);
 var
-  oldFilter : string;
+  oldFilter, locFileName : string;
 begin
   oldFilter := SD.Filter;
   SD.Filter := 'XSD files ( *.xsd )|*.xsd';
   try
     if SD.Execute() then begin
-      SaveToFile(ChangeFileExt(SD.FileName,'.xsd'));
+      locFileName := ChangeFileExt(SD.FileName,'.xsd');
+      SaveToFile(locFileName);
+      FCurrentFileName := locFileName;
     end;
   finally
     SD.Filter := oldFilter;