diff --git a/scribble-lib/scriblib/figure.rkt b/scribble-lib/scriblib/figure.rkt index c220abbb..968637b4 100644 --- a/scribble-lib/scriblib/figure.rkt +++ b/scribble-lib/scriblib/figure.rkt @@ -150,8 +150,8 @@ (counter-ref figures tag (string-append initial "igure") #:link-render-style link-style))] [(null? (cdr tags)) - (define tag1 (car tags)) - (define tag2 (cadr tags)) + (define tag1 tag) + (define tag2 (car tags)) (make-element #f (list (counter-ref figures tag1 (string-append initial "igures") #:link-render-style link-style) " and "