===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/gophermoles-surtidos/RCS/loteria-img.scm,v
retrieving revision 1.4
retrieving revision 1.1
diff -r1.4 -r1.1
8c8
< (define *formato-tarjetas* (string-append *directorio-imgns* "lote-~A-fs8.png"))
---
> (define *formato-tarjetas* "lote-~A-fs8.png")
12c12
<     (if (not (>= num *min-tarjetas*))
---
>     (if (not (>= *min-tarjetas* num))
22c22
<          (puerto  (open-input-file nombre #:binary #t))
---
>          (puerto  (open-input-file nombre-de-archivo #:binary #t))