--- loncom/interface/lonmodifycourse.pm	2005/04/12 00:20:00	1.17
+++ loncom/interface/lonmodifycourse.pm	2005/04/27 19:09:30	1.18
@@ -701,7 +701,7 @@ ENDBASE
 
 sub check_course {
     my ($dom,$course) = @_;
-    my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.');
+    my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.');
     foreach my $key (sort keys %courseIDs) {
         if ($key =~ m/^($dom)_(\w+)$/) {
             if ($2 eq $course) {