--- a/scripts/deprecated/weibull_rnd.m
+++ b/scripts/deprecated/weibull_rnd.m
@@ -1,4 +1,4 @@
-## Copyright (C) 1995, 1996, 1997  Kurt Hornik
+## Copyright (C) 2006 John W. Eaton
 ##
 ## This file is part of Octave.
 ##
@@ -18,13 +18,10 @@
 ## 02110-1301, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} weibull_rnd (@var{alpha}, @var{sigma}, @var{r}, @var{c})
-## @deftypefnx {Function File} {} weibull_rnd (@var{alpha}, @var{sigma}, @var{sz})
-##
-## This function has been deprecated.  Use weibrnd instead.
-## 
+## @deftypefn {Function File} {} weibull_rnd (@var{shape}, @var{scale}, @var{r}, @var{c})
+## @deftypefnx {Function File} {} weibull_rnd (@var{shape}, @var{scale}, @var{sz})
 ## Return an @var{r} by @var{c} matrix of random samples from the
-## Weibull distribution with parameters @var{alpha} and @var{sigma}
+## Weibull distribution with parameters @var{scale} and @var{shape}
 ## which must be scalar or of size @var{r} by @var{c}. Or if @var{sz}
 ## is a vector return a matrix of size @var{sz}.
 ##
@@ -32,11 +29,15 @@
 ## the common size of @var{alpha} and @var{sigma}.
 ## @end deftypefn
 
-## Author: KH <Kurt.Hornik@wu-wien.ac.at>
-## Description: Random deviates from the Weibull distribution
-
 function rnd = weibull_rnd (varargin)
 
-  rnd = weibrnd(varargin{:});
+  if (nargin > 1)
+    tmp = varargin{2};
+    varargin{2} = varargin{1};
+    varargin{1} = tmp;
+  endif
+
+  rnd = wblrnd (varargin{:});
 
 endfunction
+