Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -53,10 +53,11 @@
 (declare (uses commonmod.import))
 (declare (uses configfmod.import))
 (declare (uses bigmod.import))
 (declare (uses dbmod.import))
 (declare (uses rmtmod.import))
+(declare (uses servermod.import))
 
 ;; (include "call-with-environment-variables/call-with-environment-variables.scm")
 
 (module megatest-main
 	*

Index: servermod.scm
==================================================================
--- servermod.scm
+++ servermod.scm
@@ -81,10 +81,19 @@
     (write-alist->pkt
      pkts-dir
      pkt-dat
      pktspec: pkt-spec
      ptype: 'server)))
+
+(define (get-pkts-dir)
+  (assert *toppath* "ERROR: get-pkts-dir called without *toppath* set. Exiting.")
+  (let* ((pdir (conc *toppath* "/.pkts")))
+     (if (file-exists? pdir)
+	 pdir
+	 (begin
+	   (create-directory pdir #t)
+	   pdir))))
 
 ;; given a pkts dir read 
 ;;
 (define (get-all-server-pkts pktsdir-in pktspec)
   (let* ((pktsdir  (if (file-exists? pktsdir-in)