diff --git a/rtl/wasi/sysutils.pp b/rtl/wasi/sysutils.pp
index 01917e36a3..c36fad3f0d 100644
--- a/rtl/wasi/sysutils.pp
+++ b/rtl/wasi/sysutils.pp
@@ -132,11 +132,15 @@ end;
 
 Function InternalFindFirst (Const Path : RawByteString; Attr : Longint; out Rslt : TAbstractSearchRec; var Name: RawByteString) : Longint;
 begin
+  { not yet implemented }
+  Result := -1;
 end;
 
 
 Function InternalFindNext (var Rslt : TAbstractSearchRec; var Name : RawByteString) : Longint;
 begin
+  { not yet implemented }
+  Result := -1;
 end;