--- loncom/lonnet/perl/lonnet.pm	2007/02/16 01:04:19	1.832
+++ loncom/lonnet/perl/lonnet.pm	2007/02/18 01:51:20	1.833
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.832 2007/02/16 01:04:19 raeburn Exp $
+# $Id: lonnet.pm,v 1.833 2007/02/18 01:51:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5134,9 +5134,7 @@ sub is_locked {
 
 sub declutter_portfile {
     my ($file) = @_;
-    &logthis("got $file");
-    $file =~ s-^(/portfolio/|portfolio/)-/-;
-    &logthis("ret $file");
+    $file =~ s{^(/portfolio/|portfolio/)}{/};
     return $file;
 }