@@ -43,23 +43,23 @@
          tx-strs
          ymd->english
          ymd->dateformat
          default-authorname
          default-title
-         articles-path
-         series-path
+         articles-folder
+         series-folder
          articles-pagetree
          series-pagetree
          first-words
          build-note-id
          notes->last-disposition-values
          disposition-values
          )
 
 (define default-authorname "Joel Dueck")
-(define series-path "series")
-(define articles-path "articles")
+(define series-folder "series")
+(define articles-folder "articles")
 
 (define (default-title body-txprs)
   (format "“~a…”" (first-words body-txprs 5)))
 
 (define (maybe-meta m [missing ""])
@@ -80,11 +80,11 @@
 ;; or '|| if no series is specified.
 (define (series-pagenode)
   (define maybe-series (or (select-from-metas 'series (current-metas)) ""))
   (cond
     [(non-empty-string? maybe-series)
-     (->pagenode (format "~a/~a.html" series-path maybe-series))]
+     (->pagenode (format "~a/~a.html" series-folder maybe-series))]
     [else '||]))
 
 (define (series-noun)
   (define series-pnode (series-pagenode)) 
   (case series-pnode
@@ -107,14 +107,14 @@
   (define folder-path (build-path (current-project-root) folder))
   (define file-strs (map path->string (directory-list folder-path)))
   (map file->output-pagenode (filter matching-file? file-strs)))
 
 (define (articles-pagetree)
-  `(root ,@(include-in-pagetree articles-path ".poly.pm")))
+  `(root ,@(include-in-pagetree articles-folder ".poly.pm")))
 
 (define (series-pagetree)
-  `(root ,@(include-in-pagetree series-path ".poly.pm")))
+  `(root ,@(include-in-pagetree series-folder ".poly.pm")))
 
 ;; ~~~ Convenience functions for tagged x-expressions ~~~
 
 (define (maybe-attr name attrs [missing ""])
   (define result (assoc name attrs))