Index: servermod.scm
==================================================================
--- servermod.scm
+++ servermod.scm
@@ -98,19 +98,23 @@
 ;;                         back via best or fastest available transport
 
 ;; set up the server area and return a server struct
 ;; NOTE: This will need to be gated by write-access
 ;;
-(define (server:setup srvtype areapath)
+(define (server:setup areapath)
   (let* ((srvdat (make-srv
 		  areapath: areapath
 		  host:     (get-host-name) ;; likely need to replace with ip address
 		  pid:      (current-process-id)
-		  type:     srvtype))
+		  ;; type:     srvtype
+		  ))
 	 (srvdir (conc areapath"/.server/"srvtype"/"(get-host.pid srvdat))))
     (srv-dir-set! srvdat srvdir)
     (create-directory srvdir #t)
+    (for-each (lambda (d)
+		(create-directory (conc srvdir"/"d)))
+	      '("incoming" "responses"))
     srvdat))
 
 ;; maybe check load before calling this?
 (define (server:launch areapath)
   (let* ((logd (conc areapath"/logs"))