From fa3a1de0986c0a40e16023cbd6499c4fe0627181 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 2 Nov 2008 12:28:59 +0000
Subject: [PATCH] doc repairs

svn: r12216

original commit: 0b79aaa1aeec28d2b1716028fb7ba51ef5b1d8a0
---
 collects/scribble/basic.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
index 6f0b1902..3ad5099b 100644
--- a/collects/scribble/basic.ss
+++ b/collects/scribble/basic.ss
@@ -119,7 +119,9 @@
             (list? v))
         (let ([b (hash-ref interned v #f)])
           (if b
-              (weak-box-value b)
+              (or (weak-box-value b)
+                  ;; just in case the value is GCed before we extract it:
+                  (intern-taglet v))
               (begin
                 (hash-set! interned v (make-weak-box v))
                 v)))