diff --git a/collects/lang/private/intermediate-funs.ss b/collects/lang/private/intermediate-funs.ss
index def9af7bf5..9c648e41e5 100644
--- a/collects/lang/private/intermediate-funs.ss
+++ b/collects/lang/private/intermediate-funs.ss
@@ -50,7 +50,7 @@
             "to find the (first) element of the list that minimizes the output of the function")
     
     (argmax ((X -> real) (listof X) -> X)
-            "to find the (first) element of the list that minimizes the output of the function")
+            "to find the (first) element of the list that maximizes the output of the function")
     
     (memf ((X -> boolean) (listof X) -> (union false (listof X)))
 	  "to determine whether the first argument produces true for some value in the second argument")