--- loncom/interface/portfolio.pm	2004/09/10 17:59:13	1.41
+++ loncom/interface/portfolio.pm	2004/09/10 18:05:15	1.42
@@ -213,8 +213,7 @@ sub delete_dir_confirmed {
     } else {
         # now remove from recent
 #        $r->print('<br /> removing '.$directory_name.'<br /');
-        my @rem_dirs = ($directory_name.'/');
-        &Apache::lonhtmlcommon::remove_recent('portfolio',\@rem_dirs);
+        &Apache::lonhtmlcommon::remove_recent('portfolio',[$directory_name.'/']);
         my @dirs = split m!/!, $directory_name;
         
 #        $directory_name =~ m/^(\/*\/)(\/*.)$/;