--- loncom/lonnet/perl/lonnet.pm	2017/12/29 23:51:50	1.1365
+++ loncom/lonnet/perl/lonnet.pm	2018/01/03 04:21:02	1.1366
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1365 2017/12/29 23:51:50 raeburn Exp $
+# $Id: lonnet.pm,v 1.1366 2018/01/03 04:21:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11204,10 +11204,11 @@ sub get_numsuppfiles {
     unless (defined($cached)) {
         my $chome=&homeserver($cnum,$cdom);
         unless ($chome eq 'no_host') {
-            ($suppcount,my $errors) = (0,0);
+            ($suppcount,my $supptools,my $errors) = (0,0,0);
             my $suppmap = 'supplemental.sequence';
-            ($suppcount,$errors) = 
-                &Apache::loncommon::recurse_supplemental($cnum,$cdom,$suppmap,$suppcount,$errors);
+            ($suppcount,$supptools,$errors) =
+                &Apache::loncommon::recurse_supplemental($cnum,$cdom,$suppmap,$suppcount,
+                                                         $supptools,$errors);
         }
         &do_cache_new('suppcount',$hashid,$suppcount,600);
     }