Error converting from UTF8 to ISO-8859-1

["ldries46" <ldries46@planet.nl>]

I suddenly got the error mentioned in the title.
I am trying to connect a "clicked" signal from a button in a dialog to a 
routine that executes some function. The code I have so far for the 
Initialize routine of the dialog is:

   procedure Initialize (Wall_Color : access Wall_Color_Record'Class) is
      pragma Suppress (All_Checks);
      Pixmaps_Dir : constant String := "pixmaps/";
      ColorSelection : Gtk_Color_Selection;
      OK : Gtk_Button;
      Cancel : Gtk_Button;
      Help : Gtk_Button;
   begin
      Gtk.Color_Selection_Dialog.Initialize (Wall_Color, -"Wall Color");
      Set_Border_Width (Wall_Color, 5);
      Set_Title (Wall_Color, -"Wall Color");
      Set_Position (Wall_Color, Win_Pos_None);
      Set_Modal (Wall_Color, False);
      Set_Resizable (Wall_Color, False);
      ColorSelection := Get_ColorSel (Wall_Color );
      OK := Get_OK_Button (Wall_Color);
      Cancel := Get_Cancel_Button (Wall_Color);
      Help := Get_Help_Button (Wall_Color);
      Set_Current_Color( ColorSelection, Current_Color );
      Button_CallBack.Connect(OK, "clicked", 
On_WallFloorOK_Activate'Access);
   end Initialize;
When  I outcomment the line Button.Connect etc. the package with this 
function compiles without errors. Once the line is also compiled I get the 
error when opened always on the lines 37:0, 38:0 and 39:0 with the 
descriprion Invalid byte sequence in conversion input. In this case these 
lines are:
      Help : Gtk_Button;
   begin
      Gtk.Color_Selection_Dialog.Initialize (Wall_Color, -"Wall Color");
but when I add multiple lines comments or code for instance on line 20 etc. 
the line nr's of the error stay the same 37, 38 and 39.
I now cannot search further to solve my connect problem.

L. Dries