Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -12,11 +12,11 @@
 
 ;; fake out readline usage of toplevel-command
 (define (toplevel-command . a) #f)
 
 (use srfi-1 posix srfi-69 readline ;;  regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
-     srfi-18 extras format pkts regex regex-case
+     srfi-18 extras format pkts regex regex-case 
      (prefix dbi dbi:)
      nanomsg)
 
 (declare (uses common))
 (declare (uses megatest-version))
@@ -397,20 +397,35 @@
 (define-inline (decode data)
   (with-input-from-string
       data
     (lambda ()
       (read))))
+
+(define (is-port-in-use port-num)
+ (let* ((ret #f))
+     (let-values (((inp oup pid)
+                (process "netstat" (list  "-tulpn" ))))
+      (let loop ((inl (read-line inp)))
+        (if (not (eof-object? inl))
+            (begin 
+                (if (string-search (regexp (conc ":" port-num)) inl)
+                 (begin
+                 ;(print "Output: "  inl)
+                  (set! ret  #t))
+                 (loop (read-line inp)))))))
+ret))
 
 ;;start a server, returns the connection
 ;;
-(define (start-nn-server portnum)
+(define (start-nn-server portnum )
   (let ((rep (nn-socket 'rep)))
     (handle-exceptions
      exn
      (let ((emsg ((condition-property-accessor 'exn 'message) exn)))
        (print "ERROR: Failed to start server \"" emsg "\"")
        (exit 1))
+      
      (nn-bind rep (conc "tcp://*:" portnum)))
     rep))
 
 ;; open connection to server, send message, close connection
 ;;
@@ -1205,20 +1220,23 @@
            (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))
-                        (script    (configf:lookup mtconf "listener" "script")))
-                   (print "Listening on port " portnum " for messages")
-                   (let loop ((instr (nn-recv rep)))
-                     (print "received " instr ", running \"" script " " instr "\"")
-                     (system (conc script " " instr))
-                     (nn-send rep "ok")
-                     (loop (nn-recv rep))))))))
+                 (begin
+                   (if (not (is-port-in-use portnum))  
+                       (let* ((rep       (start-nn-server portnum))
+                           (mtconfdat (simple-setup (args:get-arg "-start-dir")))
+                           (mtconf    (car mtconfdat))
+                           (script    (configf:lookup mtconf "listener" "script")))
+                           (print "Listening on port " po:setrtnum " for messages")
+                           (let loop ((instr (nn-recv rep)))
+                               (print "received " instr ", running \"" script " " instr "\"")
+                               (system (conc script " " instr))
+                               (nn-send rep "ok")
+                               (loop (nn-recv rep))))
+                     (print "ERROR: Port " portnum " already in use. Try another port")))))))
       
       )) ;; the end
              
 
 ;; If HTTP_HOST is defined then we must be in the cgi environment