Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -185,10 +185,11 @@
     ("-load"            . #f)  ;; load and exectute a scheme file
     ("-log"             . #f)
     ("-msg"             . M)
     ("-start-dir"       . S)
     ("-set-vars"        . v)
+    ("-config"          . r)
     ))
 (define *switch-keys*
   '(
     ("-h"               . #f)
     ("-help"            . #f)
@@ -510,10 +511,11 @@
 		     ))
 	 (mtconf    (if mtconfdat (car mtconfdat) #f)))
     ;; we set some dynamic data in a section called "scratchdata"
     (if mtconf
 	(begin
+           
 	  (configf:section-var-set! mtconf "scratchdat" "toppath" start-dir)))
     ;; (print "TOPPATH: " (configf:lookup mtconf "scratchdat" "toppath"))
     mtconfdat))
 
 
@@ -1200,10 +1202,11 @@
               listeners))))
       ((tlisten)
        (if (null? remargs)
            (print "ERROR: useage for tlisten is \"mtutil tlisten portnum\"")
            (let ((portnum (string->number (car remargs))))
+              
              (if (not portnum)
                  (print "ERROR: the portnumber parameter must be a number, you gave: " (car remargs))
                  (let* ((rep       (start-nn-server portnum))
                         (mtconfdat (simple-setup (args:get-arg "-start-dir")))
                         (mtconf    (car mtconfdat))