diff --git a/words/app.rkt b/words/app.rkt
index 0d02f94..8f3ad8a 100644
--- a/words/app.rkt
+++ b/words/app.rkt
@@ -201,7 +201,7 @@
   (make-menu-item "Regenerate" #\R (λ (thing evt) (refresh-wordbox))))
 
 (define (update-copy-button-label count)
-  (send button-copy set-label (format "copy ~a words" count)))
+  (send button-copy set-label (format "copy ~a word~a" count (if (= 1 count) "" "s"))))
 
 (define (change-word-count amt)
   (define new-count (max (+ (current-word-count) amt) 0))