--- loncom/lonnet/perl/lonnet.pm	2006/05/01 16:00:44	1.734
+++ loncom/lonnet/perl/lonnet.pm	2006/05/15 23:40:36	1.735
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.734 2006/05/01 16:00:44 albertel Exp $
+# $Id: lonnet.pm,v 1.735 2006/05/15 23:40:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5171,7 +5171,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;