1 files changed, 1 insertions, 1 deletions
diff --git a/parser.c b/parser.c
index 8817abe4..655ee8f1 100644
--- a/parser.c
+++ b/parser.c
@@ -375,7 +375,7 @@ val parser_circ_ref(parser_t *p, val num)
   if (!obj)
     yyerrorf(p->scanner, lit("dangling #~s# ref"), num, nao);
 
-  if (obj == unique_s) {
+  if (obj == unique_s && !p->circ_suppress) {
     p->circ_count++;
     return cons(circref_s, cons(num, nil));
   }