         ] with-stream
     ] with-disposal
 
-    "unix-domain-socket-test" resource-path delete-file
+    "unix-domain-socket-test" temp-file delete-file
 ] "Test" spawn drop
 
 yield
 
 [ { "Hello world" "FOO" } ] [
     [
-        "unix-domain-socket-test" resource-path <local>
+        "unix-domain-socket-test" temp-file <local>
         ascii <client> [
             readln ,
             "XYZ" print flush


! Unix domain datagram sockets
[
    "unix-domain-datagram-test" resource-path delete-file
] ignore-errors

: server-addr "unix-domain-datagram-test" temp-file <local> ;

! Test error behavior

[
    "unix-domain-datagram-test-3" temp-file delete-file
] ignore-errors

"unix-domain-datagram-test-2" temp-file delete-file
