Fix object name for new random function.

racket/collects/racket/private/pre-base.rkt

@@ -112,6 +112,7 @@
          y))))
   (begin-encourage-inline
    (define-values (-random) ; more featureful than #%kernel's `random`
+     (procedure-rename
       (case-lambda
         [() (random)] ; no args, random float
         [(x) ; one arg, either random float with prng, or random integer
@@ -139,7 +140,8 @@
          (enforce-greater min max)
          (unless (pseudo-random-generator? prng)
            (raise-argument-error 'random "pseudo-random-generator?" prng))
-        (+ min (random (- max min) prng))])))
+         (+ min (random (- max min) prng))])
+      'random)))
 
   (define-values (new:collection-path)
     (let ([collection-path (new-lambda (collection