Shared BLC working except aoc

1 files changed, 1 insertions, 3 deletions

diff --git a/src/targets/unblc.c b/src/targets/unblc.c
index 7e6c6e6..1b59f7f 100644
--- a/src/targets/unblc.c
+++ b/src/targets/unblc.c
@@ -30,9 +30,7 @@ static void fprint_unblc(struct term *term, struct bloc_parsed *bloc,
 	case REF:
 		if (term->u.ref.index + 1 >= bloc->length)
 			fatal("invalid ref index %ld\n", term->u.ref.index);
-		fprint_unblc(
-			bloc->entries[bloc->length - term->u.ref.index - 2],
-			bloc, file);
+		fprint_unblc(bloc->entries[term->u.ref.index], bloc, file);
 		break;
 	default:
 		fatal("invalid type %d\n", term->type);