diff --git a/extra/s3/s3.factor b/extra/s3/s3.factor
index 24eae2cd89..faeb8df2ec 100644
--- a/extra/s3/s3.factor
+++ b/extra/s3/s3.factor
@@ -137,6 +137,10 @@ TUPLE: key name last-modified size ;
     sign-http-request 
     http-request 2drop ;
 
+: delete-object ( bucket key -- )
+    "/" prepend H{ } clone "DELETE" <s3-request>
+    dup s3-url <delete-request> sign-http-request http-request 2drop ;
+
 ! "testbucket" create-bucket
 ! "testbucket" delete-bucket
 ! buckets