diff --git a/ide/sourceeditprocs.pas b/ide/sourceeditprocs.pas
index 8524a45db8..c226b02081 100644
--- a/ide/sourceeditprocs.pas
+++ b/ide/sourceeditprocs.pas
@@ -707,7 +707,7 @@ begin
     Result:=Result+',';
   end;
 
-  if IdentItem.GetDesc=ctnUseUnit then begin
+  if (IdentItem.GetDesc=ctnUseUnit) and (AddChar<>'.') then begin
     Result:=Result+'.';
   end;