FIX: try-read delay 0.5s for the second try

keys/keys.red

@@ -316,10 +316,10 @@ keys: context [
 
 		either ledger-nano-s? [
 			BATCH-NUM: 1
-			set 'network-delay? no
+			btc/network-delay?: no
 		][
 			BATCH-NUM: 10
-			set 'network-delay? yes
+			btc/network-delay?: yes
 		]
 
 		list: copy []
@@ -386,7 +386,7 @@ keys: context [
 
 			i: i + 1
 		]
-		set 'network-delay? yes
+		btc/network-delay?: yes
 		append list reduce ['balance total]
 		list
 	]

libs/bitcoin.red

@@ -15,11 +15,23 @@ btc: context [
 		cause-error 'user 'btc-api [name arg2 arg3]
 	]
 
+	network-delay?: yes
 	top-scalar: to-i256 1e8
 	btc-to-sat: func [num [vector!] return: [vector!]][
 		mul256 num top-scalar
 	]
 
+	try-read: func [url][
+		;-- workaround for speed limitation of some WebAPIs
+		if network-delay? [
+			wait 0.5
+		]
+		unless error? res: try [read url][return res]
+		wait 0.5
+		unless error? res: try [read url][return res]
+		res
+	]
+
 	get-url: func [url [url!] return: [map!]
 		/local res res2
 	][

wallet.red

@@ -20,19 +20,6 @@ throw-error: func [msg [string! block!]][
 
 process-events: does [loop 10 [do-events/no-wait]]
 
-network-delay?: yes
-
-try-read: func [url][
-	;-- workaround for speed limitation of some WebAPIs
-	loop 2 [
-		if network-delay? [
-			wait 0.5
-		]
-		unless error? res: try [read url][return res]
-	]
-	res
-]
-
 #include %libs/int256.red
 #include %libs/ethereum.red
 #include %libs/bitcoin.red