From 5a98c9e46038c5993501384016c038d99e07c54c Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 15 Dec 2007 09:00:31 -0500
Subject: [PATCH] changed error message as suggested in bug 173369.

---
 scheme/ikarus.records.procedural.ss | 3 ++-
 scheme/last-revision                | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.records.procedural.ss b/scheme/ikarus.records.procedural.ss
index c66b824..7f2cb6b 100644
--- a/scheme/ikarus.records.procedural.ss
+++ b/scheme/ikarus.records.procedural.ss
@@ -183,7 +183,8 @@
                     (eqv? sealed? (rtd-sealed? rtd))
                     (eqv? opaque? (rtd-opaque? rtd))
                     (same-fields-as-rtd? fields rtd))
-               (die who "invalid arguments"))
+               (die who "arguments not equivalent to those in an existing rtd"
+                    parent sealed? opaque? fields))
              rtd)]
           [else
            (let ([rtd (generate-rtd name parent uid sealed? opaque? fields)])
diff --git a/scheme/last-revision b/scheme/last-revision
index 600fe59..c738463 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1248
+1249