From b81e27d6015f2a83cad83d8813537214476d3bdf Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 24 May 2010 10:01:12 -0600
Subject: [PATCH] Fix problem with scribble/lp and dotted forms  Closes PR
 10924  Merge to v5.0

original commit: 6dec67730837b512d5cb0e258a4c48599ef656a1
---
 collects/scribble/lp/lang/lang.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scribble/lp/lang/lang.rkt b/collects/scribble/lp/lang/lang.rkt
index f8eb1491..640849a0 100644
--- a/collects/scribble/lp/lang/lang.rkt
+++ b/collects/scribble/lp/lang/lang.rkt
@@ -41,7 +41,7 @@
       (raise-syntax-error 'scribble/lp "no chunks")))
   (define orig-stx (syntax-case stx () [(_ orig) #'orig]))
   (define (restore nstx d) (datum->syntax orig-stx d nstx nstx))
-  (define (shift nstx) (datum->syntax orig-stx (syntax-e nstx) nstx nstx))
+  (define (shift nstx) (replace-context orig-stx nstx))
   (define body
     (let ([main-id (or main-id first-id)])
       (restore