--- loncom/homework/structuretags.pm	2019/11/05 18:08:09	1.568
+++ loncom/homework/structuretags.pm	2019/11/06 16:20:06	1.569
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.568 2019/11/05 18:08:09 raeburn Exp $
+# $Id: structuretags.pm,v 1.569 2019/11/06 16:20:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -789,6 +789,14 @@ sub setup_rndseed {
         if ($safeeval) {
             &Apache::lonxml::debug("Setting rndseed to $rndseed");
             &Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval);
+            my $prevparttype;
+            if (@Apache::inputtags::partlist > 1) {
+                $prevparttype = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[-2].type");
+            }
+            if (($Apache::lonhomework::type eq 'randomizetry') || ($prevparttype eq 'randomizetry')) {
+                &Apache::lonxml::debug("Setting randomizetrypart to $Apache::inputtags::part");
+                &Apache::run::run('$external::randomizetrypart="'.$Apache::inputtags::part.'";',$safeeval);
+            }
         }
     }
     unless (($env{'request.state'} eq "construct") || ($symb eq '')) {