--- loncom/lonnet/perl/lonnet.pm	2007/08/08 22:24:34	1.904
+++ loncom/lonnet/perl/lonnet.pm	2007/08/10 22:14:54	1.905
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.904 2007/08/08 22:24:34 albertel Exp $
+# $Id: lonnet.pm,v 1.905 2007/08/10 22:14:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6317,6 +6317,12 @@ sub EXT {
 	    my ($map) = &decode_symb($symbparm);
 	    return &symbread($map);
 	}
+	if ($space eq 'filename') {
+	    if ($symbparm) {
+		return &clutter((&decode_symb($symbparm))[2]);
+	    }
+	    return &hreflocation('',$env{'request.filename'});
+	}
 
 	my ($section, $group, @groups);
 	my ($courselevelm,$courselevel);