--- loncom/debugging_tools/check_authoring_spaces.pl	2017/10/10 15:07:45	1.2
+++ loncom/debugging_tools/check_authoring_spaces.pl	2017/10/12 21:29:29	1.3
@@ -9,7 +9,7 @@
 # If files are not the same include in list for potentially overwriting
 # file in Authoring space with file in Resource space. 
 #
-# $Id: check_authoring_spaces.pl,v 1.2 2017/10/10 15:07:45 raeburn Exp $
+# $Id: check_authoring_spaces.pl,v 1.3 2017/10/12 21:29:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -396,7 +396,7 @@ if ($action eq 'undo') {
                                         my $file = pop(@subdirs);
                                         my $path = "$londaemons/logs/checked_authoring_spaces/$dom/$uname";
                                         while (@subdirs) {
-                                            my $dir = pop(@subdirs);
+                                            my $dir = shift(@subdirs);
                                             $path .= '/'.$dir;
                                             if (!-e $path) {
                                                 mkdir($path,0755);