From 99eb875e90f41e1f9b62b5fb38fa25e7f33370b9 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 12 Feb 2008 10:48:49 +0000
Subject: [PATCH] typo in use-at-readtable

svn: r8630
---
 collects/scribble/reader.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scribble/reader.ss b/collects/scribble/reader.ss
index fb779fd30f..34af9124ce 100644
--- a/collects/scribble/reader.ss
+++ b/collects/scribble/reader.ss
@@ -539,7 +539,7 @@
     (make-keyword-procedure
      (lambda (kws kw-args . rest)
        (port-count-lines! (current-input-port))
-       (keyword-apply current-readtable kws kw-args rest))))
+       (keyword-apply make-at-readtable kws kw-args rest))))
 
   ;; utilities for below
   (define make-default-at-readtable