--- loncom/lonnet/perl/lonnet.pm	2000/10/25 10:55:46	1.48
+++ loncom/lonnet/perl/lonnet.pm	2000/10/25 20:52:31	1.49
@@ -492,6 +492,7 @@ sub restore {
 sub coursedescription {
     my $courseid=shift;
     $courseid=~s/^\///;
+    $courseid=~s/\_/\//g;
     my ($cdomain,$cnum)=split(/\//,$courseid);
     my $chome=homeserver($cnum,$cdomain);
     if ($chome ne 'no_host') {
@@ -1076,7 +1077,8 @@ sub varval {
     } elsif ($realm eq 'course') {
 # ---------------------------------------------------------- course.description
         if ($space eq 'description') {
-	    return &coursedescription($ENV{'request.course.id'});
+            my %reply=&coursedescription($ENV{'request.course.id'});
+            return $reply{'description'};
 # ------------------------------------------------------------------- course.id
         } elsif ($space eq 'id') {
             return $ENV{'request.course.id'};