Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -176,11 +176,11 @@
     (if (not (and pktsdir toppath pdbpath))
 	(begin
 	  (print "ERROR: settings are missing in your megatest.config for area management.")
 	  (print "  you need to have pktsdir in the [setup] section."))
 	(let* ((pdb  (open-queue-db pdbpath "pkts.db"
-				    schema: "CREATE TABLE groups (id INTEGER PRIMARY KEY,groupname TEXT, CONSTRAINT group_constraint UNIQUE (groupname));"))
+				    schema: '("CREATE TABLE groups (id INTEGER PRIMARY KEY,groupname TEXT, CONSTRAINT group_constraint UNIQUE (groupname));")))
 	       (pkts (glob (conc pktsdir "/*.pkt"))))
 	  (for-each
 	   (lambda (pkt)
 	     (let* ((uuid    (cadr (string-match ".*/([0-9a-f]+).pkt" pkt)))
 		    (exists  (lookup-by-uuid pdb uuid #f)))