diff --git a/collects/scribble/private/manual-style.ss b/collects/scribble/private/manual-style.ss
index 4af411d3..fe5e184d 100644
--- a/collects/scribble/private/manual-style.ss
+++ b/collects/scribble/private/manual-style.ss
@@ -172,8 +172,8 @@
 
 (define (elemtag t . body)
   (make-target-element #f (decode-content body) `(elem ,t)))
-(define (elemref t . body)
-  (make-link-element #f (decode-content body) `(elem ,t)))
+(define (elemref #:underline? [u? #t] t . body)
+  (make-link-element (if u? #f "plainlink") (decode-content body) `(elem ,t)))
 
 (define (doc-prefix doc s)
   (if doc (list (module-path-prefix->string doc) s) s))
diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl
index deffd221..9434c499 100644
--- a/collects/scribblings/scribble/manual.scrbl
+++ b/collects/scribblings/scribble/manual.scrbl
@@ -899,7 +899,8 @@ The tag @scheme[t] refers to the content form of
 @scheme[pre-content].}
 
 
-@defproc[(elemref [t tag?] [pre-content any/c] ...) element?]{
+@defproc[(elemref [t tag?] [pre-content any/c] ... 
+                  [#:underline? underline? any/c #t]) element?]{
 
 The @tech{decode}d @scheme[pre-content] is hyperlinked to @scheme[t],
 which is normally defined using @scheme[elemtag].}