X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/abd5cb6f7e0e603753a39dbab541e152f9e682d5..7413889adaf31a00d1f71598f221f0155d015dab:/safely.lisp

diff --git a/safely.lisp b/safely.lisp
index b5d7ff8..2477f9a 100644
--- a/safely.lisp
+++ b/safely.lisp
@@ -237,8 +237,7 @@
    temporary file, and if BODY completes, it is renamed to FILE."
   (with-gensyms safe
     `(safely (,safe)
-       (let ((,stream (apply #'safely-open-output-stream
-			     ,safe ,file ,open-args)))
+       (let ((,stream (safely-open-output-stream ,safe ,file ,@open-args)))
 	 ,@body))))
 
 ;;;----- That's all, folks --------------------------------------------------