diff --git a/wrapper/Ada/wolfssl.adb b/wrapper/Ada/wolfssl.adb
index e64ffb991e..617dd245e7 100644
--- a/wrapper/Ada/wolfssl.adb
+++ b/wrapper/Ada/wolfssl.adb
@@ -1522,6 +1522,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