bug#33867: Folding with origin-uri fails for inherited packages

[swedebugia]

Is this a bug?

scheme@(guix-user) [1]> (define snakes
                       (fold-packages
                            (lambda (package lst)
                                (if (string-prefix? "python"
                                      (package-name package))
                                       (cons (origin-uri package) lst)
                             lst))
                        '()))
... ... ... ... ... ... ... <unnamed port>:15:45: In procedure 
origin-uri: Wrong type argument: #<package address@hidden 
gnu/packages/xml.scm:1235 2220300>

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guix-user) [2]> ,bt
In current input:
    11:23  5 (_)
In guix/discovery.scm:
    155:3  4 (fold-module-public-variables _ _ _)
In guix/combinators.scm:
    45:26  3 (fold2 #<procedure 1138b20 at guix/discovery.scm:155:10 
(mod…> …)
    45:26  2 (fold2 #<procedure 1144620 at guix/discovery.scm:156:19 
(var…> …)
In guix/discovery.scm:
   158:33  1 (_ #<package address@hidden 
gnu/packages/xml.scm:1…> …)
In current input:
    15:45  0 (_ _ _)


--
Cheers Swedebugia