@@ -492,10 +492,12 @@
   (with-input-from-string
       data
     (lambda ()
       (read))))
 
+;; moved to portlogger - TODO: remove from here and get from portlogger
+;;
 (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)))