Raises of Internal_FLTK_Error now come with error messages

1 files changed, 6 insertions, 2 deletions

diff --git a/body/fltk-devices-surface-paged-postscript.adb b/body/fltk-devices-surface-paged-postscript.adb
index fa9f66d..b58b1da 100644
--- a/body/fltk-devices-surface-paged-postscript.adb
+++ b/body/fltk-devices-surface-paged-postscript.adb
@@ -355,7 +355,9 @@ package body FLTK.Devices.Surface.Paged.Postscript is
     begin
         pragma Assert (Code = 0);
     exception
-    when Chk.Assertion_Error => raise Internal_FLTK_Error;
+    when Chk.Assertion_Error => raise Internal_FLTK_Error with
+        "Fl_PostScript_File_Device::start_job returned unexpected int value of " &
+        Interfaces.C.int'Image (Code);
     end Start_Job;
 
 
@@ -377,7 +379,9 @@ package body FLTK.Devices.Surface.Paged.Postscript is
         when others => pragma Assert (Code = 0);
         end case;
     exception
-    when Chk.Assertion_Error => raise Internal_FLTK_Error;
+    when Chk.Assertion_Error => raise Internal_FLTK_Error with
+        "Fl_PostScript_File_Device::start_job returned unexpected int value of " &
+        Interfaces.C.int'Image (Code);
     end Start_Job;