diff --git a/.gitignore b/.gitignore
index b3289bd..f77600a 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,3 @@
-*~
+**/*~
+**/*#
 ywatds
diff --git a/dataserver.lisp b/dataserver.lisp
index 5d47df6..427d374 100644
--- a/dataserver.lisp
+++ b/dataserver.lisp
@@ -26,7 +26,7 @@
      (format nil "~s"
 	     (atsl:from-file
 	      (uiop:subpathname worldpath (format nil "advtrains_~a" p))
-	      'alist)))
+	      :alist)))
     (hunchentoot:start server)
     ;; loop until an error occurs
     (handler-case (loop (sleep most-positive-fixnum))
diff --git a/serialize-lib.lisp b/serialize-lib.lisp
index a774133..00ad870 100644
--- a/serialize-lib.lisp
+++ b/serialize-lib.lisp
@@ -32,7 +32,7 @@
 
 (defun read-table (stream restype)
   (let ((ht (case restype
-	      ('alist nil)
+	      (:alist nil)
 	      (otherwise (make-hash-table)))))
     (do ((line (adjust-line (read-line stream nil))
 	       (adjust-line (read-line stream nil))))
@@ -46,7 +46,7 @@
 		      (read-table stream restype)
 		      vt)))
 	 (case restype
-	   ('alist (push (cons kv vv) ht))
+	   (:alist (push (cons kv vv) ht))
 	   (otherwise (setf (gethash kv ht) vv))))))))
 
 (defun from-stream (stream restype)
diff --git a/www/index.txt b/www/index.txt
new file mode 100644
index 0000000..d1dff26
--- /dev/null
+++ b/www/index.txt
@@ -0,0 +1,3 @@
+Usage
+
+dumper/<p>: Dumps advtrains_<p> as associated lists