--- loncom/publisher/loncfile.pm	2002/07/29 01:55:51	1.13
+++ loncom/publisher/loncfile.pm	2002/08/05 02:09:05	1.14
@@ -10,7 +10,7 @@
 #
 
 #
-# $Id: loncfile.pm,v 1.13 2002/07/29 01:55:51 foxr Exp $
+# $Id: loncfile.pm,v 1.14 2002/08/05 02:09:05 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -856,9 +856,13 @@ sub Copy2 {
     &Debug($request ,"Will try to copy $oldfile to $newfile");
     if(-e $oldfile) {
 	unless (copy($oldfile, $newfile)) {
-	    $request->print('<font color=red> Error: '.$!.'</font>');
+	    $request->print('<font color=red> copy Error: '.$!.'</font>');
 	    return 0;
 	} else {
+	    unless (chmod(0660, $newfile)) {
+		$request->print('<font color=red> chmod error: '.$!.'</font>');
+		return 0;
+	    }
 	    return 1;
 	}
     } else {