--- loncom/lonnet/perl/lonnet.pm	2004/06/08 22:09:44	1.506
+++ loncom/lonnet/perl/lonnet.pm	2004/06/09 14:57:30	1.507
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.506 2004/06/08 22:09:44 raeburn Exp $
+# $Id: lonnet.pm,v 1.507 2004/06/09 14:57:30 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4407,6 +4407,9 @@ sub symbclean {
 # remove version from URL
     $symb=~s/\.(\d+)\.(\w+)$/\.$2/;
 
+# remove wrapper
+
+    $symb=~s/(\_\_\_\d+\_\_\_)adm\/wrapper\//$1/;
     return $symb;
 }