--- loncom/lonnet/perl/lonnet.pm	2003/02/13 21:35:50	1.327
+++ loncom/lonnet/perl/lonnet.pm	2003/02/13 21:57:48	1.328
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.327 2003/02/13 21:35:50 albertel Exp $
+# $Id: lonnet.pm,v 1.328 2003/02/13 21:57:48 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1755,7 +1755,7 @@ sub dump {
 
 # --------------------------------------------------------------- currentdump
 sub currentdump {
-   my ($sname,$sdom,$courseid)=@_;
+   my ($courseid,$sdom,$sname)=@_;
    $courseid = $ENV{'request.course.id'} if (! defined($courseid));
    $sdom     = $ENV{'user.domain'}       if (! defined($sdom));
    $sname    = $ENV{'user.name'}         if (! defined($sname));