@@ -113,11 +113,11 @@
   
 ;;======================================================================
 ;; MISC PROCESS RELATED STUFF
 ;;======================================================================
 
-(define (children proc)
+(define (process:children proc)
   (with-input-from-pipe
    (conc "ps h --ppid " (current-process-id) " -o pid")
    (lambda ()
      (let loop ((inl (read-line))
 		(res '()))