diff --git a/components/ideintf/packageintf.pas b/components/ideintf/packageintf.pas
index 85a6fd8751..318cd5f580 100644
--- a/components/ideintf/packageintf.pas
+++ b/components/ideintf/packageintf.pas
@@ -587,14 +587,10 @@ procedure TLazPackageID.UpdateIDAsString;
 begin
   FIDAsString:=Version.AsString;
   if FIDAsString<>'' then
-    FIDAsString:=Name+' '+FIDAsString
-  else
-    FIDAsString:=FIDAsString;
+    FIDAsString:=Name+' '+FIDAsString;
   FIDAsWord:=Version.AsWord;
   if FIDAsWord<>'' then
-    FIDAsWord:=Name+FIDAsWord
-  else
-    FIDAsWord:=FIDAsWord;
+    FIDAsWord:=Name+FIDAsWord;
 end;
 
 procedure TLazPackageID.VersionChanged(Sender: TObject);