Submitted upstream: https://gitlab.com/weinholt/ac-d-bus/-/merge_requests/3

diff --git a/tests/test-signature.sps b/tests/test-signature.sps
index 278401b..cc5574f 100755
--- a/tests/test-signature.sps
+++ b/tests/test-signature.sps
@@ -43,6 +43,7 @@
             (format-type-signature '(message BYTE BYTE BYTE BYTE UINT32 UINT32
                                              (ARRAY (STRUCT BYTE VARIANT)))))
 
+(define fail-count (test-runner-fail-count (test-runner-get)))
 (test-end)
 
-(exit (if (zero? (test-runner-fail-count (test-runner-get))) 0 1))
+(exit (if (zero? fail-count) 0 1))
diff --git a/tests/test-wire.sps b/tests/test-wire.sps
index c3354bf..06ae73b 100755
--- a/tests/test-wire.sps
+++ b/tests/test-wire.sps
@@ -147,6 +147,7 @@
                   #x08 #x01 #x67 #x00  #x00 #x00 #x00 #x00  #x05 #x01 #x75 #x00  #x04 #x00 #x00 #x00
                   #x07 #x01 #x73 #x00  #x06 #x00 #x00 #x00  #x3A #x31 #x2E #x32  #x39 #x38 #x00 #x00)))
 
+(define fail-count (test-runner-fail-count (test-runner-get)))
 (test-end)
 
-(exit (if (zero? (test-runner-fail-count (test-runner-get))) 0 1))
+(exit (if (zero? fail-count) 0 1))
 href='/guix/refs/?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>refs</a><a class='active' href='/guix/log/gnu/packages/patches/curlftpfs-fix-memory-leak.patch'>log</a><a href='/guix/tree/gnu/packages/patches/curlftpfs-fix-memory-leak.patch?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>tree</a><a href='/guix/commit/gnu/packages/patches/curlftpfs-fix-memory-leak.patch?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>commit</a><a href='/guix/diff/gnu/packages/patches/curlftpfs-fix-memory-leak.patch?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/patches/curlftpfs-fix-memory-leak.patch'>
<input type='hidden' name='id' value='ab9f9b582e510e3d1133ec29242e70fca1d2997a'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>root</a>/<a href='/guix/log/gnu?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>gnu</a>/<a href='/guix/log/gnu/packages?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>packages</a>/<a href='/guix/log/gnu/packages/patches?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>patches</a>/<a href='/guix/log/gnu/packages/patches/curlftpfs-fix-memory-leak.patch?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a'>curlftpfs-fix-memory-leak.patch</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/patches/curlftpfs-fix-memory-leak.patch?id=ab9f9b582e510e3d1133ec29242e70fca1d2997a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-07-23 02:00:00 +0200'>2023-07-23</span></td><td><a href='/guix/commit/gnu/packages/patches/curlftpfs-fix-memory-leak.patch?id=8244aea1829eec8aa68289d9832e3b77a26fbed9'>gnu: curlftpfs: Add patches to fix bugs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/file-systems.scm (curlftpfs)[source]: Add patches.
* gnu/packages/patches/curlftpfs-fix-error-closing-file.patch,
gnu/packages/patches/curlftpfs-fix-file-names.patch,
gnu/packages/patches/curlftpfs-fix-memory-leak.patch,
gnu/packages/patches/curlftpfs-fix-no_verify_hostname.patch: New files.
* gnu/local.mk (dist_patch_DATA): Add them.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>