diff --git a/collects/scribblings/guide/apply.scrbl b/collects/scribblings/guide/apply.scrbl
index 7850eec5f1..6bb5c7c2ca 100644
--- a/collects/scribblings/guide/apply.scrbl
+++ b/collects/scribblings/guide/apply.scrbl
@@ -8,7 +8,7 @@
 An expression of the form
 
 @specsubform[
-(_proc-expr _arg-expr ...)
+(proc-expr arg-expr ...)
 ]
 
 is a function call---also known as a @defterm{procedure
@@ -49,7 +49,7 @@ by-position arguments. For that case, an @scheme[_arg] can be an
 @guideother{@secref["keywords"] introduces keywords.}
 
 @specform/subs[
-(_proc-expr _arg ...)
+(_proc-expr arg ...)
 ([arg arg-expr
       (code:line arg-keyword arg-expr)])
 ]
diff --git a/collects/scribblings/reference/control-lib.scrbl b/collects/scribblings/reference/control-lib.scrbl
index e4d1f74af2..70d8ce71b6 100644
--- a/collects/scribblings/reference/control-lib.scrbl
+++ b/collects/scribblings/reference/control-lib.scrbl
@@ -65,7 +65,7 @@ The essential reduction rules are:
 @schemeblock[
 (prompt _val) => _val
 (prompt _E[(control _k _expr)]) => (prompt ((lambda (_k) _expr)
-                                           (lambda (_v) _E[_v])))
+                                            (lambda (_v) _E[_v])))
   (code:comment #, @t{where @scheme[_E] has no @scheme[prompt]})
 ]}
 
diff --git a/collects/scribblings/slideshow/picts.scrbl b/collects/scribblings/slideshow/picts.scrbl
index 1b671b8613..10b943cd2e 100644
--- a/collects/scribblings/slideshow/picts.scrbl
+++ b/collects/scribblings/slideshow/picts.scrbl
@@ -1,6 +1,6 @@
 #lang scribble/doc
 @(require "ss.ss"
-          (for-label (except-in scheme/gui drop)
+          (for-label scheme/gui
                      slideshow/code
                      slideshow/flash
                      slideshow/face
@@ -520,12 +520,12 @@ to the corresponding sides; ascent and descent are extended, too.}
 Truncates @scheme[pict]'s @tech{bounding box} by removing the descent part.}
 
 
-@defproc[(lift [pict pict?] [amt real?]) pict?]{
+@defproc[(lift-above-baseline [pict pict?] [amt real?]) pict?]{
 
 Lifts @scheme[pict] relative to its baseline, extending the
 @tech{bounding-box} height if necessary.}
 
-@defproc[(drop [pict pict?] [amt real?]) pict?]{
+@defproc[(drop-below-ascent [pict pict?] [amt real?]) pict?]{
 
 Drops @scheme[pict] relative to its ascent line, extending the
 @tech{bounding-box} height if necessary.}
diff --git a/collects/slideshow/pict.ss b/collects/slideshow/pict.ss
index 97399d1c4b..9e2f3210a6 100644
--- a/collects/slideshow/pict.ss
+++ b/collects/slideshow/pict.ss
@@ -129,7 +129,12 @@
                        find-rc
                        find-rb
                        find-rtl
-                       find-rbl)
+                       find-rbl
+
+                       drop
+                       lift)
+           (rename-out [drop drop-below-ascent]
+                       [lift lift-above-baseline])
 
            (except-out (all-from-out texpict/utils)