~ chicken-core (chicken-5) d390a3d045ea2c60fac4c428addef2166c2ddece

commit d390a3d045ea2c60fac4c428addef2166c2ddece
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 2 23:11:46 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 2 23:11:46 2010 +0200

    Soham

diff --git a/runtime.c b/runtime.c
index 93492107..61f4db75 100644
--- a/runtime.c
+++ b/runtime.c
@@ -8414,10 +8414,10 @@ C_regparm C_word C_fcall C_i_locative_to_object(C_word loc)
   if(C_immediatep(loc) || C_block_header(loc) != C_LOCATIVE_TAG)
     barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative->object", loc);
 
-  ptr = (C_word *)C_u_i_car(loc);
+  ptr = (C_word *)C_block_item(loc, 0);
 
   if(ptr == NULL) return C_SCHEME_FALSE;
-  else return (C_word)ptr - C_unfix(C_u_i_cdr(loc));
+  else return (C_word)ptr - C_unfix(C_block_item(loc, 1));
 }