--- loncom/lonnet/perl/lonnet.pm	2005/07/13 20:30:20	1.645
+++ loncom/lonnet/perl/lonnet.pm	2005/07/25 02:35:29	1.646
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.645 2005/07/13 20:30:20 raeburn Exp $
+# $Id: lonnet.pm,v 1.646 2005/07/25 02:35:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1302,7 +1302,7 @@ sub userfileupload {
     if ($coursedoc) {
 	my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
 	my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
-        if ($env{'form.folder'} =~ m/^default/) {
+        if ($env{'form.folder'} =~ m/^(default|supplemental)/) {
             return &finishuserfileupload($docuname,$docudom,
 					 $formname,$fname,$parser,$allfiles,
 					 $codebase);