--- loncom/lonnet/perl/lonnet.pm	2012/05/18 20:16:48	1.1171
+++ loncom/lonnet/perl/lonnet.pm	2012/05/21 18:35:30	1.1172
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1171 2012/05/18 20:16:48 droeschl Exp $
+# $Id: lonnet.pm,v 1.1172 2012/05/21 18:35:30 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10760,6 +10760,7 @@ sub declutter {
     $thisfn=~s|^adm/wrapper/||;
     $thisfn=~s|^adm/coursedocs/showdoc/||;
     $thisfn=~s/^res\///;
+    $thisfn=~s/^priv\///;
     unless (($thisfn =~ /^ext/) || ($thisfn =~ /\.(page|sequence)___\d+___ext/)) {
         $thisfn=~s/\?.+$//;
     }