diff --git a/examples/curl.fs b/examples/curl.fs
index 421c96e..5fcbf8f 100644
--- a/examples/curl.fs
+++ b/examples/curl.fs
@@ -36,4 +36,6 @@ scr
 
 here 100000 sock read-file throw constant len
 here len type
+sock close-file throw
+
 bye