* Minor code reorganization

src/polyorb_hi-messages.adb

@@ -182,12 +182,10 @@ package body PolyORB_HI.Messages is
          Stream.Last := 0;
       end if;
 
-      if Item'Length > Stream.Content'Last - Stream.Last then
-         raise Program_Error;
-      end if;
-
+      if Item'Length <= Stream.Content'Last - Stream.Last then
          Stream.Content (Stream.Last + 1 .. Stream.Last + Item'Length) := Item;
          Stream.Last := Stream.Last + Item'Length;
+      end if;
    end Write;
 
    ---------------