diff --git a/cml-pe.scm b/cml-pe.scm
index f6c88da..010ccc3 100644
--- a/cml-pe.scm
+++ b/cml-pe.scm
@@ -44,7 +44,7 @@
 	(let ((exitno (wait process)))
 	  (cml-sync-ch/send ch (append (list exitno) 
 				       (map port->string read-ports))))) 
-      (format #t "cml-fork-collecting: waiting (for ~a)\n" (proc:pid process))) 
+      (format #t "cml-fork/collecting: waiting (for ~a)\n" (proc:pid process))) 
 
     (spawn 
       (lambda ()
@@ -56,7 +56,7 @@
 						 (loop)))))
 	   (cml-rv/wrap proc-done-rv 
 			(lambda (res) (cml-sync-ch/send res-ch res))))))
-      (format #t "cml-fork-collecting: signals (for ~a)\n" (proc:pid process)))
+      (format #t "cml-fork/collecting: signals (for ~a)\n" (proc:pid process)))
 
     (for-each close-output-port write-ports)
     (cml-sync-ch/receive-rv res-ch)))