diff --git a/docs/Contributors.txt b/docs/Contributors.txt
index a4896c5aa8..67bd7a94ad 100644
--- a/docs/Contributors.txt
+++ b/docs/Contributors.txt
@@ -16,6 +16,7 @@ Eric Chapman
 GongYu
 Hans-Joachim Ott
 Ido Kanner
+Jan Foster
 Jason King
 Jeffrey A. Wormsley
 Jeroen van Idekinge
diff --git a/ide/main.pp b/ide/main.pp
index bd1396508d..7b11335401 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -3178,6 +3178,7 @@ begin
   FormEditor1.ClearSelection;
 
   // Figure out where we want to put the new form
+  // if there is more place left of the OI put it left, otherwise right
   new_x:=ObjectInspector1.Left+ObjectInspector1.Width; //+60;
   new_y:=MainIDEBar.Top+MainIDEBar.Height; //+80;
   if screen.width-new_x>=ObjectInspector1.left then inc(new_x, 60) else new_x:=16;
@@ -11330,6 +11331,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.823  2005/01/07 21:09:18  mattias
+  improved placing new forms  by Jan
+
   Revision 1.822  2005/01/07 21:02:59  mattias
   TFont, TBrush, TPen can now be used with fpCanvas