From 16c52974da41506369395c1dfae1e7a5c2b79f93 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 18 Dec 2007 11:32:13 -0500
Subject: [PATCH] Fixes bug 176710: Strange error message for cadr.

---
 scheme/ikarus.pairs.ss | 4 +++-
 scheme/last-revision   | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.pairs.ss b/scheme/ikarus.pairs.ss
index 241cc61..d4e2985 100644
--- a/scheme/ikarus.pairs.ss
+++ b/scheme/ikarus.pairs.ss
@@ -65,7 +65,9 @@
        (begin
          (define name*
            (lambda (x) 
-             ((cxr (die 'name* "invalid list structure" x) ops** ...)
+             ((cxr (die 'name* 
+                     "argument does not have required pair structure" x) 
+                   ops** ...)
               x)))
          ...)]))
 
diff --git a/scheme/last-revision b/scheme/last-revision
index 1b0f564..837dd96 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1256
+1258