File racket-doc.patch of Package racket

---
 share/pkgs/scribble-lib/help/search.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

--- share/pkgs/scribble-lib/help/search.rkt
+++ share/pkgs/scribble-lib/help/search.rkt
@@ -47,7 +47,8 @@
                       ;; Doesn't exist, but notify and then fall back below:
                       (build-path (find-doc-dir) sub)))
      (notify path)
-     (if (file-exists? path)
+     (if (and (file-exists? path)
+              (file-exists? (build-path (find-doc-dir) "docindex.sqlite")))
          (send-url/file path #:fragment fragment #:query query)
          (let ([part (lambda (pfx x) (if x (string-append pfx x) ""))])
            (send-url (string-append
openSUSE Build Service is sponsored by