diff --git a/wrapper/Ada/wolfssl.adb b/wrapper/Ada/wolfssl.adb
index 4928a7d99d..e64ffb991e 100644
--- a/wrapper/Ada/wolfssl.adb
+++ b/wrapper/Ada/wolfssl.adb
@@ -1493,6 +1493,10 @@ package body WolfSSL is
                                   Size : Integer;
                                   Result : out Integer) is
    begin
+      if Size < 0 then
+         Result := Exception_Error;
+         return;
+      end if;
       declare
          R : int;
       begin