--- loncom/homework/structuretags.pm	2001/10/05 12:39:13	1.69
+++ loncom/homework/structuretags.pm	2001/10/13 05:59:18	1.70
@@ -417,11 +417,13 @@ sub start_randomlist {
 sub shuffle {
     my $a=shift;
     my $i;
-    &Apache::response::setrandomnumber();
-    for($i=@$a;--$i;) {
-      my $j=int rand($i+1);
-      next if $i == $j;
-      @$a[$i,$j] = @$a[$j,$i];
+    if (defined(@$a)) {
+      &Apache::response::setrandomnumber();
+      for($i=@$a;--$i;) {
+	my $j=int rand($i+1);
+	next if $i == $j;
+	@$a[$i,$j] = @$a[$j,$i];
+      }
     }
 }
 
@@ -542,7 +544,7 @@ sub end_startouttext {
   my $text='';
 
   if ($target eq 'edit') {
-    $text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);
+    $text=&Apache::lonxml::get_all_text("endouttext",$$parser[-1]);
     $result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td>
 <td>Delete:".
   &Apache::edit::deletelist($target,$token)