@@ -445,7 +445,14 @@ (define (generate-documentation documentation documentation-name)
(define (show-default val)
(cond
((package? val)
- (symbol->string (package->symbol val)))
+ (let ((sym (package->symbol val)))
+ ;; Work around for #71979. While in the alternate
+ ;; the answer will not always match the symbol, it
+ ;; should be good enough for illustrating the default
+ ;; value in documentation.
+ (if sym
+ (symbol->string sym)
+ (package-name val))))
(((list-of package?) val)
(format #f "(~{~a~^ ~})" (map package->symbol val)))
(else (str val))))