Shared BLC working except aoc

1 files changed, 2 insertions, 3 deletions

diff --git a/src/targets/unbblc.c b/src/targets/unbblc.c
index 57bc1cf..4c3a3c9 100644
--- a/src/targets/unbblc.c
+++ b/src/targets/unbblc.c
@@ -47,9 +47,8 @@ static void fprint_unbblc(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_unbblc(
-			bloc->entries[bloc->length - term->u.ref.index - 2],
-			bloc, file, byte, bit);
+		fprint_unbblc(bloc->entries[term->u.ref.index], bloc, file,
+			      byte, bit);
 		break;
 	default:
 		fatal("invalid type %d\n", term->type);