--- loncom/build/Attic/parse.pl	2000/12/11 18:35:14	1.11
+++ loncom/build/Attic/parse.pl	2000/12/11 19:02:48	1.12
@@ -176,6 +176,7 @@ sub make_file_list {
 	# render starting HTML formatting elements
 	if (@files) {
         }
+	my $pwd=`pwd`; chop $pwd;
 	if (@files) {
             foreach my $i (0..$#files) {
 		my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
@@ -193,11 +194,14 @@ sub make_file_list {
 		    my $rot2;
 		    foreach my $l (@list) {
 			$l=~s/^\s*//; $l=~s/\s*$//;
-			$rot2.="$rot$l\n" if length($l);
+			$rot2.="BinaryRoot$rot$l\n" if length($l);
 		    }
 		    chop $rot2;
 		    $rot=$rot2;
 		}
+		else {
+		    $rot="BinaryRoot$rot";
+		}
 		$description.=<<END;
 $rot
 END