1 files changed, 2 insertions, 2 deletions
diff --git a/src/fltk-devices-surfaces.adb b/src/fltk-devices-surfaces.adb
index a0c5042..d32adda 100644
--- a/src/fltk-devices-surfaces.adb
+++ b/src/fltk-devices-surfaces.adb
@@ -69,14 +69,14 @@ package body FLTK.Devices.Surfaces is
 
 
     function Get_Current
-        return access Surface_Device is
+        return access Surface_Device'Class is
     begin
         return Current_Ptr;
     end Get_Current;
 
 
     procedure Set_Current
-           (This : in out Surface_Device) is
+           (This : in out Surface_Device'Class) is
     begin
         fl_surface_set_current (This.Void_Ptr);
         Current_Ptr := This'Unchecked_Access;