$ cat weirdness.scm 
(use free-gettext)

(define language "pt_BR")

(print "language: " language)

((make-gettext "foo" language "foo/locale")
 'getter)

(print "language: " language)


$ csi -s weirdness.scm 
language: pt_BR
language: pt_br