diff --git a/wst/trunk/type_lib_edtr/uprocedit.lrs b/wst/trunk/type_lib_edtr/uprocedit.lrs
index b5f96392a..f3f8abb48 100644
--- a/wst/trunk/type_lib_edtr/uprocedit.lrs
+++ b/wst/trunk/type_lib_edtr/uprocedit.lrs
@@ -1,3 +1,5 @@
+{ Ceci est un fichier ressource généré automatiquement par Lazarus }
+
 LazarusResources.Add('TfProcEdit','FORMDATA',[
   'TPF0'#10'TfProcEdit'#9'fProcEdit'#4'Left'#3'"'#1#6'Height'#3#31#2#3'Top'#2'v'
   +#5'Width'#3#10#2#13'ActiveControl'#7#7'edtName'#11'BorderStyle'#7#13'bsSizeT'
diff --git a/wst/trunk/type_lib_edtr/uprocedit.pas b/wst/trunk/type_lib_edtr/uprocedit.pas
index 7e52d81a0..66e1ca059 100644
--- a/wst/trunk/type_lib_edtr/uprocedit.pas
+++ b/wst/trunk/type_lib_edtr/uprocedit.pas
@@ -291,12 +291,17 @@ procedure TfProcEdit.SaveToObject();
   end;
   
   procedure CheckObjectType();
+  var
+    newRetType : TPasType;
   begin
     if FObject.InheritsFrom(TPasFunction) then begin
+      newRetType := edtResultType.Items.Objects[edtResultType.ItemIndex] as TPasType;
       if ( FOldReturnType <> nil ) and
-         ( FOldReturnType <> TPasFunctionType(FObject.ProcType).ResultEl.ResultType )
+         ( FOldReturnType <> newRetType )
       then begin
         FOldReturnType.Release();
+        TPasFunctionType(FObject.ProcType).ResultEl.ResultType := newRetType;
+        newRetType.AddRef();
       end;
     end;
     if edtFunction.Checked and ( not FObject.InheritsFrom(TPasFunction) ) then begin