--- loncom/lonnet/perl/lonnet.pm	2009/10/08 19:54:31	1.1030
+++ loncom/lonnet/perl/lonnet.pm	2009/10/19 02:15:33	1.1031
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1030 2009/10/08 19:54:31 raeburn Exp $
+# $Id: lonnet.pm,v 1.1031 2009/10/19 02:15:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9114,8 +9114,8 @@ sub clutter {
 	|| $thisfn =~ m{^/adm/(includes|pages)} ) { 
        $thisfn='/res'.$thisfn; 
     }
-    if ($thisfn !~m|/adm|) {
-	if ($thisfn =~ m|/ext/|) {
+    if ($thisfn !~m|^/adm|) {
+	if ($thisfn =~ m|^/ext/|) {
 	    $thisfn='/adm/wrapper'.$thisfn;
 	} else {
 	    my ($ext) = ($thisfn =~ /\.(\w+)$/);