--- a/scripts/statistics/distributions/geornd.m
+++ b/scripts/statistics/distributions/geornd.m
@@ -18,8 +18,8 @@
 ## 02110-1301, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} geometric_rnd (@var{p}, @var{r}, @var{c})
-## @deftypefnx {Function File} {} geometric_rnd (@var{p}, @var{sz})
+## @deftypefn {Function File} {} geornd (@var{p}, @var{r}, @var{c})
+## @deftypefnx {Function File} {} geornd (@var{p}, @var{sz})
 ## Return an @var{r} by @var{c} matrix of random samples from the
 ## geometric distribution with parameter @var{p}, which must be a scalar
 ## or of size @var{r} by @var{c}.
@@ -32,20 +32,20 @@
 ## Author: KH <Kurt.Hornik@ci.tuwien.ac.at>
 ## Description: Random deviates from the geometric distribution
 
-function rnd = geometric_rnd (p, r, c)
+function rnd = geornd (p, r, c)
 
   if (nargin == 3)
     if (! (isscalar (r) && (r > 0) && (r == round (r))))
-      error ("geometric_rnd: r must be a positive integer");
+      error ("geornd: r must be a positive integer");
     endif
     if (! (isscalar (c) && (c > 0) && (c == round (c))))
-      error ("geometric_rnd: c must be a positive integer");
+      error ("geornd: c must be a positive integer");
     endif
     sz = [r, c];
 
     if (any (size (p) != 1) && ((length (size (p)) != length (sz)) ||
 				any (size (p) != sz)))
-      error ("geometric_rnd: p must be scalar or of size [r, c]");
+      error ("geornd: p must be scalar or of size [r, c]");
     endif
   elseif (nargin == 2)
     if (isscalar (r) && (r > 0))
@@ -53,17 +53,17 @@
     elseif (isvector(r) && all (r > 0))
       sz = r(:)';
     else
-      error ("geometric_rnd: r must be a postive integer or vector");
+      error ("geornd: r must be a postive integer or vector");
     endif
 
     if (any (size (p) != 1) && ((length (size (p)) != length (sz)) ||
 				any (size (p) != sz)))
-      error ("geometric_rnd: n must be scalar or of size sz");
+      error ("geornd: n must be scalar or of size sz");
     endif
   elseif (nargin == 1)
     sz = size(n);
   elseif (nargin != 1)
-    usage ("geometric_rnd (p, r, c)");
+    usage ("geornd (p, r, c)");
   endif