diff --git a/scheme/inspector.scm b/scheme/inspector.scm
index 2cc87e1..c8ff958 100644
--- a/scheme/inspector.scm
+++ b/scheme/inspector.scm
@@ -24,10 +24,10 @@
 (define (make-inspector-selection-list num-cols num-lines focus-obj)
   (let ((menu (prepare-menu focus-obj)))
     (make-select-list
-     (zip
-      (map cdr menu) ;; drop name
-      (map (lambda (e) #t) menu) ;; all are selectable
-      (map (lambda (e) (layout-menu-entry num-cols e)) menu))
+     (map (lambda (e)
+	    (make-unmarked-element 
+	     (cdr e) #t (layout-menu-entry num-cols e)))
+	  menu) 
      num-lines)))
 
 (define (make-header focus-obj num-cols)