From 0b3691691abfe73944f5209d9cad68a90de13257 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Tue, 24 Jan 2012 15:19:57 -0700
Subject: [PATCH] db: fix sqlite3 #:use-place for raco exe

---
 collects/db/private/generic/place-client.rkt | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/collects/db/private/generic/place-client.rkt b/collects/db/private/generic/place-client.rkt
index 9f373a0fd3..d4fccad936 100644
--- a/collects/db/private/generic/place-client.rkt
+++ b/collects/db/private/generic/place-client.rkt
@@ -4,6 +4,8 @@
          racket/place
          racket/promise
          racket/serialize
+         racket/runtime-path
+         (for-syntax (only-in racket/base quote))
          ffi/unsafe/atomic
          "interfaces.rkt"
          "prepared.rkt")
@@ -15,6 +17,9 @@
 (define (pchan-get chan)
   (deserialize (place-channel-get chan)))
 
+(define-runtime-module-path-index _place-server
+  'db/private/generic/place-server)
+
 (define connection-server-channel
   (delay/sync
    (dynamic-place 'db/private/generic/place-server 'connection-server)))