1 files changed, 1 insertions, 1 deletions
diff --git a/src/fltk-environment.adb b/src/fltk-environment.adb
index 1632717..a1ebdbe 100644
--- a/src/fltk-environment.adb
+++ b/src/fltk-environment.adb
@@ -384,7 +384,7 @@ package body FLTK.Environment is
         elsif Num = root_fl_prefs_user then
             return User;
         else
-            raise Constraint_Error;
+            raise Internal_FLTK_Error;
         end if;
     end To_Scope;