--- loncom/interface/loncommon.pm	2010/03/17 19:35:56	1.954
+++ loncom/interface/loncommon.pm	2010/03/17 20:00:02	1.955
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.954 2010/03/17 19:35:56 raeburn Exp $
+# $Id: loncommon.pm,v 1.955 2010/03/17 20:00:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10209,6 +10209,10 @@ sub construct_course {
 	$cenv{'url'}=$oldcenv{'url'};
 # Restore title
 	$cenv{'description'}=$oldcenv{'description'};
+# Restore creation date, creator and creation context.
+        $cenv{'internal.created'}=$oldcenv{'internal.created'};
+        $cenv{'internal.creator'}=$oldcenv{'internal.creator'};
+        $cenv{'internal.creationcontext'}=$oldcenv{'internal.creationcontext'};
 # Mark as cloned
 	$cenv{'clonedfrom'}=$cloneid;
 # Need to clone grading mode