--- loncom/lonnet/perl/lonnet.pm	2008/01/01 20:27:20	1.937
+++ loncom/lonnet/perl/lonnet.pm	2008/01/18 02:18:07	1.938
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.937 2008/01/01 20:27:20 raeburn Exp $
+# $Id: lonnet.pm,v 1.938 2008/01/18 02:18:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6717,7 +6717,7 @@ sub EXT {
 	    if ($part eq '') { $part='0'; }
 	    my @partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest,
 				 $symbparm,$udom,$uname,$section,1);
-	    if (@partgeneral) { return &get_reply(\@partgeneral); }
+	    if (defined($partgeneral[0])) { return &get_reply(\@partgeneral); }
 	}
 	if ($recurse) { return undef; }
 	my $pack_def=&packages_tab_default($filename,$varname);