Index: servermod.scm
==================================================================
--- servermod.scm
+++ servermod.scm
@@ -104,11 +104,11 @@
   (let* ((srvdat (make-srv
 		  areapath: areapath
 		  host:     (get-host-name) ;; likely need to replace with ip address
 		  pid:      (current-process-id)
 		  type:     srvtype))
-	 (srvdir (conc areapath"/"srvtype"/"(get-host.pid srvdat))))
+	 (srvdir (conc areapath"/.server/"srvtype"/"(get-host.pid srvdat))))
     (srv-dir-set! srvdat srvdir)
     (create-directory srvdir #t)
     srvdat))
 
 ;; maybe check load before calling this?