diff --git a/scheme/inspector.scm b/scheme/inspector.scm
index 5f8f70a..a3c4460 100644
--- a/scheme/inspector.scm
+++ b/scheme/inspector.scm
@@ -5,7 +5,7 @@
     (make-select-list
      (map (lambda (e)
 	    (make-unmarked-text-element 
-	     (cdr e) #t (layout-menu-entry num-cols e)))
+	     (cadr e) #t (layout-menu-entry num-cols e)))
 	  menu) 
      num-lines)))
 
@@ -28,7 +28,7 @@
 
 (define (layout-menu-entry num-cols entry)
   (let ((head (format #f "[~a]" (or (car entry) ""))))
-    (string-append head (val-to-string (cdr entry) 
+    (string-append head (val-to-string (cadr entry) 
                                        (- num-cols (string-length head))))))
 
 (define *write-depth* 3)