--- loncom/interface/lonexttool.pm	2018/01/04 12:37:49	1.17
+++ loncom/interface/lonexttool.pm	2018/01/31 14:17:44	1.18
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Launch External Tool Provider (LTI)
 #
-# $Id: lonexttool.pm,v 1.17 2018/01/04 12:37:49 raeburn Exp $
+# $Id: lonexttool.pm,v 1.18 2018/01/31 14:17:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -483,10 +483,7 @@ sub gradabletool_access_check {
         @targets = ('web');
     }
     foreach my $target (@targets) {
-        undef(%Apache::lonhomework::results);
-        undef(%Apache::lonhomework::history);
-        %Apache::lonhomework::history =
-            &Apache::lonnet::restore($symb,$courseid,$udom,$uname);
+        &Apache::structuretags::initialize_storage($symb);
         &Apache::lonhomework::set_show_problem_status(&Apache::lonnet::EXT('resource.0.problemstatus'));
         my ($accessmsg,$slot_name,$slot,$ipused);
         ($status,$accessmsg,$slot_name,$slot,$ipused) =
@@ -517,6 +514,9 @@ sub gradabletool_access_check {
                 }
             }
         }
+        if (keys(%Apache::lonhomework::results)) {
+            &Apache::structuretags::finalize_storage();
+        }
     }
     return ($status,$result,$resource_due);
 }