Index: dust.rkt
==================================================================
--- dust.rkt
+++ dust.rkt
@@ -118,11 +118,11 @@
     (define series-file (build-path (current-project-root)
                                     series-folder
                                     (format "~a.poly.pm" series-name)))
     (when (file-exists? series-file)
       (case (system-type 'os)
-        ['windows (system (format "type nul >> ~a" series-file))]
+        [(windows) (system (format "type nul >> ~a" series-file))]
         [else (system (format "touch ~a" series-file))]))))
 
 ;; ~~~ Project-wide Pagetrees ~~~
 
 (define (include-in-pagetree folder extension)