diff --git a/collects/meta/zo-size.rkt b/collects/meta/zo-size.rkt
new file mode 100644
index 0000000000..2b1d8a237e
--- /dev/null
+++ b/collects/meta/zo-size.rkt
@@ -0,0 +1,23 @@
+#lang racket
+
+(define ht (make-hash))
+
+(for ([lcp (current-library-collection-paths)])
+  (when (directory-exists? lcp)
+    (for ([coll (in-list (directory-list lcp))])
+      (define coll-path (build-path lcp coll))
+      (when (directory-exists? coll-path)
+        (hash-set! ht 
+                   (path->string coll)
+                   (for/sum ([file (in-directory (build-path lcp coll))]
+                             #:when (regexp-match? #rx"[.]zo$" (path->string file)))
+                     (file-size file)))))))
+
+(define total (for/sum ([(k v) (in-hash ht)]) v))
+(printf "The 'time' line is to trick drdr into graphing\n")
+(printf "the size of all of the .zo files, in bytes\n")
+(printf "cpu time: ~a real time: ~a gc time: ~a\n" total total total)
+(printf "This is the breakdown by collection\n")
+(sort (hash-map ht list)
+      string<=?
+      #:key car)