diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index 6c2aff5a24..b52d1bb09e 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -304,9 +304,7 @@
       null)
 
     (define/override (render-blockquote t part ri)
-      (let* ([kind (or (blockquote-style t) "quote")]
-             ;; FIXME temporary hack to avoid a \begin{blockquote}
-             [kind (if (eq? 'blockquote kind) "quote" kind)])
+      (let ([kind (or (blockquote-style t) "quote")])
         (printf "\n\n\\begin{~a}\n" kind)
         (parameterize ([current-table-mode (list "blockquote" t)])
           (for ([e (blockquote-paragraphs t)]) (render-block e part ri #f)))
diff --git a/collects/teachpack/htdp/scribblings/world.scrbl b/collects/teachpack/htdp/scribblings/world.scrbl
index 3f763651a7..a0f6584c97 100644
--- a/collects/teachpack/htdp/scribblings/world.scrbl
+++ b/collects/teachpack/htdp/scribblings/world.scrbl
@@ -240,16 +240,15 @@ for the creation of scenes, too.
 @; -----------------------------------------------------------------------------
 
 @(define (table* . stuff)
-  ;; (list paragraph paragraph) *-> Table
+   ;; (list paragraph paragraph) *-> Table
    (define (flow* x) (make-flow (list x)))
-  (make-blockquote 'blockquote
-    (list 
-      (make-table (make-with-attributes 'boxed
-		    '((cellspacing . "6")))
-	;list
-	  (map (lambda (x) (map flow* x)) stuff)
-	  #;(map flow* (map car stuff))
-	  #;(map flow* (map cadr stuff))))))
+   (make-blockquote #f
+    (list
+     (make-table (make-with-attributes 'boxed '((cellspacing . "6")))
+                 ;; list
+                 (map (lambda (x) (map flow* x)) stuff)
+                 #;(map flow* (map car stuff))
+                 #;(map flow* (map cadr stuff))))))
 
 @; -----------------------------------------------------------------------------
 @section[#:tag "example"]{A First Example}