diff --git a/collects/scribble/eval.rkt b/collects/scribble/eval.rkt
index 5777333a..1080c0c8 100644
--- a/collects/scribble/eval.rkt
+++ b/collects/scribble/eval.rkt
@@ -9,11 +9,8 @@
          interaction0
          interaction-eval
          interaction-eval-show
-         racketblock+interaction
          racketblock+eval (rename-out [racketblock+eval schemeblock+eval])
-         racketblock0+interaction
          racketblock0+eval
-         racketmod+interaction
          racketmod+eval (rename-out [racketmod+eval schememod+eval])
          def+int
          defs+int
@@ -437,16 +434,6 @@
   (syntax-case stx ()
     [(H e ...) (syntax/loc stx (-interaction H e ...))]))
 
-(define-syntax racketblock+interaction
-  (syntax-rules ()
-    [(_ #:eval ev e ...)
-     (let ([eva ev])
-       (#%expression
-        (begin (interaction #:eval eva e) ...
-               (racketblock name e ...))))]
-    [(_ name e ...)
-     (racketblock+interaction #:eval (make-base-eval) name e ...)]))
-
 (define-syntax racketblock+eval
   (syntax-rules ()
     [(_ #:eval ev e ...)
@@ -457,16 +444,6 @@
     [(_ e ...)
      (racketblock+eval #:eval (make-base-eval) e ...)]))
 
-(define-syntax racketblock0+interaction
-  (syntax-rules ()
-    [(_ #:eval ev e ...)
-     (let ([eva ev])
-       (#%expression
-        (begin (interaction #:eval eva e) ...
-               (racketblock0 name e ...))))]
-    [(_ name e ...)
-     (racketblock0+interaction #:eval (make-base-eval) name e ...)]))
-
 (define-syntax racketblock0+eval
   (syntax-rules ()
     [(_ #:eval ev e ...)
@@ -476,16 +453,6 @@
     [(_ e ...)
      (racketblock0+eval #:eval (make-base-eval) e ...)]))
 
-(define-syntax racketmod+interaction
-  (syntax-rules ()
-    [(_ #:eval ev name e ...)
-     (let ([eva ev])
-       (#%expression
-        (begin (interaction #:eval eva e) ...
-               (racketmod name e ...))))]
-    [(_ name e ...)
-     (racketmod+interaction #:eval (make-base-eval) name e ...)]))
-
 (define-syntax racketmod+eval
   (syntax-rules ()
     [(_ #:eval ev name e ...)
diff --git a/collects/scribblings/scribble/eval.scrbl b/collects/scribblings/scribble/eval.scrbl
index aaf38b6d..a71ea382 100644
--- a/collects/scribblings/scribble/eval.scrbl
+++ b/collects/scribblings/scribble/eval.scrbl
@@ -84,33 +84,18 @@ Like @racket[interaction-eval], but produces an element representing
 the printed form of the evaluation result.}
 
 
-@defform*[[(racketblock+interaction datum ...)
-           (racketblock+interaction #:eval eval-expr datum ...)]]{
-
-Combines @racket[racketblock] and @racket[interaction].}
-
 @defform*[[(racketblock+eval datum ...)
            (racketblock+eval #:eval eval-expr datum ...)]]{
 
 Combines @racket[racketblock] and @racket[interaction-eval].}
 
 
-@defform*[[(racketblock0+interaction datum ...)
-           (racketblock0+interaction #:eval eval-expr datum ...)]]{
-
-Combines @racket[racketblock0] and @racket[interaction].}
-
 @defform*[[(racketblock0+eval datum ...)
            (racketblock0+eval #:eval eval-expr datum ...)]]{
 
 Combines @racket[racketblock0] and @racket[interaction-eval].}
 
 
-@defform*[[(racketmod+interaction name datum ...)
-           (racketmod+interaction #:eval eval-expr name datum ...)]]{
-
-Combines @racket[racketmod] and @racket[interaction].}
-
 @defform*[[(racketmod+eval name datum ...)
            (racketmod+eval #:eval eval-expr name datum ...)]]{