diff --git a/scheme/process.scm b/scheme/process.scm
index 91c0f5c..693ea99 100644
--- a/scheme/process.scm
+++ b/scheme/process.scm
@@ -35,10 +35,10 @@
 (define (make-process-selection-list num-cols num-lines processes)
   (let ((layout (lambda (p) (layout-process num-cols p))))
     (make-select-list
-     (zip 
-      processes 
-      (map (lambda (p) #t) processes)
-      (map layout processes))
+     (map 
+      (lambda (p)
+	(make-unmarked-element p #t (layout-process num-cols p)))
+      processes)
      num-lines)))
 
 (define (pps-receiver message)