--- loncom/lonnet/perl/lonnet.pm	2006/04/06 19:19:11	1.683.2.20
+++ loncom/lonnet/perl/lonnet.pm	2006/05/15 23:42:52	1.683.2.21
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.683.2.20 2006/04/06 19:19:11 albertel Exp $
+# $Id: lonnet.pm,v 1.683.2.21 2006/05/15 23:42:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4970,7 +4970,7 @@ sub EXT {
 
 # ----------------------------------------------------- Cascading lookup scheme
 	    my $symbp=$symbparm;
-	    my $mapp=(&decode_symb($symbp))[0];
+	    my $mapp=&deversion((&decode_symb($symbp))[0]);
 
 	    my $symbparm=$symbp.'.'.$spacequalifierrest;
 	    my $mapparm=$mapp.'___(all).'.$spacequalifierrest;