From ae8bbaef90cc9436d6ea132a21ae9d87e09b391e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 30 Jun 2011 09:55:55 -0600
Subject: [PATCH] fix attempt to clean up overflow checking

---
 src/racket/src/vector.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/vector.c b/src/racket/src/vector.c
index 447606bee8..a5c3bb42fb 100644
--- a/src/racket/src/vector.c
+++ b/src/racket/src/vector.c
@@ -290,7 +290,7 @@ make_vector (int argc, Scheme_Object *argv[])
 
   if ((len == -1) 
       /* also watch for overflow: */
-      || (REV_VECTOR_BYTES(len) != len)) {
+      || (REV_VECTOR_BYTES(VECTOR_BYTES(len)) != len)) {
     scheme_raise_out_of_memory("make-vector", "making vector of length %s",
 			       scheme_make_provided_string(argv[0], 1, NULL));
   }