From a32b3a38aab37d1a694b726004b479d36de88772 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 26 Aug 2022 16:41:31 +0200
Subject: [PATCH] wasmjob: fetch example: statustext

---
 demo/wasienv/fetch/WasiFetch1.lpr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/demo/wasienv/fetch/WasiFetch1.lpr b/demo/wasienv/fetch/WasiFetch1.lpr
index 6216251..f36a768 100644
--- a/demo/wasienv/fetch/WasiFetch1.lpr
+++ b/demo/wasienv/fetch/WasiFetch1.lpr
@@ -57,7 +57,7 @@ begin
   Response:=TJSResponse.Cast(Obj);
   if not Response.ok then
   begin
-    DoError('TFetchJSONHelper.OnAccepted Response not ok, status=');
+    DoError('TFetchJSONHelper.OnAccepted Response not ok, status='+string(Response.statusText));
     exit;
   end;