.

original commit: f8e265c2bf31044e53d5aa8a9ef33d0a39f79e1f

collects/mzlib/file.ss

@@ -215,7 +215,7 @@
 
   (define make-temporary-file
     (case-lambda
-     [(template)
+     [(template copy-from)
       (with-handlers ([not-break-exn?
 		       (lambda (x)
 			 (raise-type-error 'make-temporary-file
@@ -235,7 +235,8 @@
 						       (raise x)))])
 	      (close-output-port (open-output-file name))
 	      name))))]
-     [() (make-temporary-file "mztmp~a")]))
+     [(template) (make-temporary-file template #f)]
+     [() (make-temporary-file "mztmp~a" #f)]))
   
   (define find-library
     (case-lambda