Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1628,68 +1628,65 @@
                               (mtconf    (car mtconfdat))
                               (contact   (configf:lookup mtconf "listener" "owner"))
                               (script    (configf:lookup mtconf "listener" "script")))
                          (print "Listening on port " portnum " for messages.")
                          (set-signal-handler! signal/int  (lambda (signum) 
-															(set! *time-to-exit* #t)
-  														(debug:print-error 0 *default-log-port* "Received signal " signum " sending email befor exiting !!")
-  														(let ((email-body (mtut:stml->string (s:body
-																						(s:p (conc "Received signal " signum ". Lister has been terminated on host " (get-environment-variable "HOST") ". "))))))
-             					        (sendmail contact "Listner has been terminated." email-body  use_html: #t))
-                              (exit)))
-															(set-signal-handler! signal/term  (lambda (signum) 
-															(set! *time-to-exit* #t)
-  														(debug:print-error 0 *default-log-port* "Received signal " signum " sending email befor exiting !!")
-  														(let ((email-body (mtut:stml->string (s:body
-																						(s:p (conc "Received signal " signum ". Lister has been terminated on host " (get-environment-variable "HOST") ". "))))))
-             					        (sendmail contact "Listner has been terminated." email-body  use_html: #t))
-                              (exit)))
-
-                         ;(set-signal-handler! signal/term special-signal-handler)
+							    (set! *time-to-exit* #t)
+							    (debug:print-error 0 *default-log-port* "Received signal " signum " sending email befor exiting !!")
+							    (let ((email-body (mtut:stml->string (s:body
+												  (s:p (conc "Received signal " signum ". Lister has been terminated on host " (get-environment-variable "HOST") ". "))))))
+							      (sendmail contact "Listner has been terminated." email-body  use_html: #t))
+							    (exit)))
+			 (set-signal-handler! signal/term  (lambda (signum) 
+							     (set! *time-to-exit* #t)
+							     (debug:print-error 0 *default-log-port* "Received signal " signum " sending email befor exiting !!")
+							     (let ((email-body (mtut:stml->string (s:body
+												   (s:p (conc "Received signal " signum ". Lister has been terminated on host " (get-environment-variable "HOST") ". "))))))
+							       (sendmail contact "Listner has been terminated." email-body  use_html: #t))
+							     (exit)))
+
+			 ;;(set-signal-handler! signal/term special-signal-handler)
                          
                          (let loop ((instr (nn-recv rep)))
-                             ;;(nn-send rep "3.9")
-                             (with-input-from-pipe (conc "/usr/bin/uptime | cut -d':' -f4 | awk '{print $1}' | cut -d',' -f1")
-                             	(lambda()
-                             		(let loop ((inl (read-line)))
-                          				(if (not (eof-object? inl))
-                              				(begin
-                                			;;(print "fdk73: " inl ":")
-                                			;;(set! current-list-ciaf (append! current-list-ciaf (list (string-substitute "\\s+$" "" inl))))
-                                			(nn-send rep inl)
-                                			(loop(read-line)))
-                          				))
-
-                             	)
-                             )
-                             ;;(print (isys "/usr/bin/uptime" foreach-stdout-thunk: foreach-stdout))
-                             (let ((ctime (date->string (current-date)))) 
+			   ;;(nn-send rep "3.9")
+			   (with-input-from-pipe (conc "/usr/bin/uptime | cut -d':' -f4 | awk '{print $1}' | cut -d',' -f1")
+			     (lambda()
+			       (let loop ((inl (read-line)))
+				 (if (not (eof-object? inl))
+				     (begin
+				       ;;(print "fdk73: " inl ":")
+				       ;;(set! current-list-ciaf (append! current-list-ciaf (list (string-substitute "\\s+$" "" inl))))
+				       (nn-send rep inl)
+				       (loop(read-line)))
+				     ))))
+			   ;;(print (isys "/usr/bin/uptime" foreach-stdout-thunk: foreach-stdout))
+			   (let ((ctime (date->string (current-date)))) 
                              (if  (equal? instr "time-to-die")
-                              (begin 
-                              (debug:print 0 *default-log-port* ctime " received '" instr "'. Time to sucide." )
-                               (let ((pid  (current-process-id)))
-                              (debug:print 0 *default-log-port* "Killing current process (pid=" pid ")")
-                               (system (conc "kill " pid))))  
-                             (begin
-								(debug:print 0 *default-log-port* ctime " received " instr )
-								;(nn-send rep "ok")
-                                (if (not (equal? instr "ping"))
-                                  (begin
-                                   (debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
-                                    ;(system (conc script " '" instr "'"))
-                                      (process-run script (list  instr ))  
-                                     (debug:print 0 *default-log-port* ctime " done" ))
-                                   (begin
-                                   	 (if (not (equal? instr "load"))
-                                   	 	(print "Checking load")
-
-                                   	 ) 
-                                   )
-
-                                  )
-
-                                )))
+				  (begin 
+				    (debug:print 0 *default-log-port* ctime " received '" instr "'. Time to sucide." )
+				    (let ((pid  (current-process-id)))
+				      (debug:print 0 *default-log-port* "Killing current process (pid=" pid ")")
+				      (system (conc "kill " pid))))  
+				  (begin
+				    (debug:print 0 *default-log-port* ctime " received " instr )
+					;(nn-send rep "ok")
+				    (if (not (equal? instr "ping"))
+					(begin
+					  (debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
+					;(system (conc script " '" instr "'"))
+					  (process-run script (list  instr ))  
+					  (debug:print 0 *default-log-port* ctime " done" ))
+					(begin
+					  (if (not (equal? instr "load"))
+					      (print "Checking load")
+
+					      ) 
+					  )
+
+					)
+
+				    )))
                            (loop (nn-recv rep))))
 		       (print "ERROR: Port " portnum " already in use. Try another port")))))))