--- loncom/interface/lonclonecourse.pm	2020/07/01 20:08:54	1.15
+++ loncom/interface/lonclonecourse.pm	2020/07/23 18:03:10	1.16
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # routines for clone a course
 #
-# $Id: lonclonecourse.pm,v 1.15 2020/07/01 20:08:54 raeburn Exp $
+# $Id: lonclonecourse.pm,v 1.16 2020/07/23 18:03:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,7 +108,7 @@ sub rewritefile {
 
 sub copyfile {
     my ($origcrsid,$newcrsid,$which)=@_;
-    unless ($which=~/\.sequence$/) {
+    unless ($which=~/\.(page|sequence)$/) {
 	return &writefile($newcrsid,$which,
 		      &readfile($origcrsid,$which));
     } else {