diff --git a/guile/sort-buckets.scm b/guile/sort-buckets.scm
index 622e2fc..16c16a6 100644
--- a/guile/sort-buckets.scm
+++ b/guile/sort-buckets.scm
@@ -39,7 +39,7 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.
          (sorted (map cdr (sort-list
                            (map (lambda (xs) (cons (parse-size (last xs)) xs)) data)
                            (lambda (a b) (> (first a) (first b)))))))
-    (call-with-output-file out-file (lambda (port) (scm->dsv port #:format 'rfc4180)))))
+    (call-with-output-file out-file (lambda (port) (scm->dsv sorted port #:format 'rfc4180)))))
 
 (define (main args)
   (case (length args)