diff --git a/uiop/stream.lisp b/uiop/stream.lisp
index 464e933e678cd8c4253171beb22b0d20bc07013d..1590b71c4cc3927544e50b65c807bd336d597468 100644
--- a/uiop/stream.lisp
+++ b/uiop/stream.lisp
@@ -645,7 +645,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev
           ,@(when directory `(:directory ,directory))
           ,@(when prefix `(:prefix ,prefix))
           ,@(when suffix `(:suffix ,suffix))
-          ,@(when type `(:suffix ,type))
+          ,@(when type `(:type ,type))
           ,@(when keep `(:keep ,keep))
           ,@(when after `(:after `#',afterf))
           ,@(when element-type `(:element-type ,element-type))