diff --git a/bepascal/source/bepascal/pas/src/be/interface/bitmap.pp b/bepascal/source/bepascal/pas/src/be/interface/bitmap.pp
index 843a2d7..96fe6df 100644
--- a/bepascal/source/bepascal/pas/src/be/interface/bitmap.pp
+++ b/bepascal/source/bepascal/pas/src/be/interface/bitmap.pp
@@ -23,7 +23,7 @@ unit Bitmap;
 interface
 
 uses
-  BeObj, Archivable, GraphicDefs, Message, OS, Rect, SupportDefs, View;
+  BeObj, Archivable, GraphicDefs, Message, OS, Rect, SupportDefs;
 
 const
   B_BITMAP_CLEAR_TO_WHITE          = $00000001;
@@ -38,6 +38,10 @@ const
   B_ANY_BYTES_PER_ROW = -1;
 
 type
+  BView = TBeObject; // OCO To avoid circulare reference beetween bitmap.pp and view.pp
+                     // We have to look at a better solution in the futur
+                     // (This one may not work when using functions that use this 
+                     // definition)
   BBitmap = class(BArchivable)
   private
   public
@@ -348,4 +352,4 @@ begin
   Result := BBitmap_Perform(CPlusObject, d, arg);
 end;
 
-end.
\ No newline at end of file
+end.