Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -48,15 +48,15 @@
   (let* ((xlatr-key (or xlatr-key-in
                         (conf-get/default mtconf aval-alist 'targtrans)))
          (proc      (hash-table-ref/default *target-mappers* xlatr-key #f)))
     (if proc
         (begin
-          (print "Using target mapper: " area-xlatr)
+          (print "Using target mapper: " xlatr-key)
           (handle-exceptions
            exn
            (begin
-             (print "FAILED TO RUN TARGET MAPPER FOR " area ", called " area-xlatr)
+             (print "FAILED TO RUN TARGET MAPPER FOR " area ", called " xlatr-key)
              (print "   function is: " (hash-table-ref/default *target-mappers* xlatr-key #f ) )
              (print " message: " ((condition-property-accessor 'exn 'message) exn))
              runkey)
            (proc runkey area contour)))
         (begin
@@ -996,11 +996,11 @@
 		 (print "No section \"" (car remargs) "\" found")))
 	   (print "ERROR: list requires section parameter; areas, setup or contours")))
       ((gendot)
        (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
 	      (mtconf    (car mtconfdat)))
-	 (with-queue-db
+	 (common:with-queue-db
 	  mtconf
 	  (lambda (pktsdirs pktsdir conn)
 	    (make-report "out.dot" conn '())))))
       ((db)
        (if (null? remargs)