diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss
index a2517c29..cd3d368f 100644
--- a/collects/mrlib/graph.ss
+++ b/collects/mrlib/graph.ss
@@ -84,7 +84,7 @@
                        (or/c false/c string?)
                        . -> .
 		       void?))
-                    (set-links-label!
+                    (set-link-label
                      ((is-a?/c graph-snip<%>)
                       (is-a?/c graph-snip<%>)
                       (or/c false/c string?)
@@ -147,7 +147,7 @@
     (send parent add-child child)
     (send child add-parent parent dark-pen light-pen dark-brush light-brush dark-text light-text dx dy label))
 
-  (define (set-links-label! parent child label)
+  (define (set-link-label parent child label)
     (send child set-parent-link-label parent label))
 
   (define graph-snip-mixin
diff --git a/collects/mrlib/scribblings/graph/graph.scrbl b/collects/mrlib/scribblings/graph/graph.scrbl
index 46b28cbb..3f568925 100644
--- a/collects/mrlib/scribblings/graph/graph.scrbl
+++ b/collects/mrlib/scribblings/graph/graph.scrbl
@@ -75,9 +75,9 @@ used.}
 Like @scheme[add-links], but with extra @scheme[dark-text] and
 @scheme[light-text] arguments to set the colors of the label.}
 
-@defproc[(set-links-label! [parent (is-a?/c graph-snip<%>)]
-                           [child (is-a?/c graph-snip<%>)]
-                           [label (or/c string? false/c)])
+@defproc[(set-link-label [parent (is-a?/c graph-snip<%>)]
+                         [child (is-a?/c graph-snip<%>)]
+                         [label (or/c string? false/c)])
           void?]{
 
 Changes the label on the edge going from @scheme[child] to