@@ -55,11 +55,11 @@
 ;; helpers for mappers/checkers
 (define (add-target-mapper name proc)
   (hash-table-set! *target-mappers* name proc))
 (define (add-runname-mapper name proc)
   (hash-table-set! *runname-mappers* name proc))
-(define (add-area-checker name proc)
+(define (add-area-checker name proc) ;; util, USED EXTERNALLY, do not remove.
   (hash-table-set! *area-checkers* name proc))
 
 ;; given a runkey, xlatr-key and other info return one of the following:
 ;;   list of targets, null list to skip processing
 ;;   
@@ -1690,11 +1690,12 @@
               (begin
                (for-each
               (lambda (listener)
                 (let ((host-port (car listener))
                       (attrib (val->alist (cadr listener))))
-                  (if (and (equal? msg "time-to-die") (not (can-user-kill-listner user-info attrib)))
+                  (if (and (equal? msg "time-to-die")
+			   (not (can-user-kill-listner user-info attrib)))
                    (begin
                       (debug:print-error 0 *default-log-port* "User " (car user-info) " is not allowed to send message '" msg"'")
                       (exit 1)))
                   (print "sending " msg " to " host-port )
                   (open-send-close-nn host-port msg attrib timeout: time-out )))
@@ -1718,11 +1719,12 @@
               (begin
                (for-each
               (lambda (listener)
                 (let ((host-port (car listener))
                       (attrib (val->alist (cadr listener))))
-                  (if (and (equal? msg "time-to-die") (not (can-user-kill-listner user-info attrib)))
+                  (if (and (equal? msg "time-to-die")
+			   (not (can-user-kill-listner user-info attrib)))
                    (begin
                       (debug:print-error 0 *default-log-port* "User " (car user-info) " is not allowed to send message '" msg"'")
                       (exit 1)))
                   (print "sending " msg " to " host-port )
                   (open-send-receive-nn host-port msg attrib timeout: time-out )))