--- loncom/homework/essayresponse.pm	2010/08/23 03:21:26	1.110
+++ loncom/homework/essayresponse.pm	2010/08/28 22:25:07	1.111
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # essay (ungraded) style responses
 #
-# $Id: essayresponse.pm,v 1.110 2010/08/23 03:21:26 raeburn Exp $
+# $Id: essayresponse.pm,v 1.111 2010/08/28 22:25:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -485,8 +485,7 @@ sub file_submission {
         push(@pathitems,$restitle);
         $path .= join('/',@pathitems);
         my $formelement = 'HWFILE'.$jspart.'_'.$id;
-        my $fname = $env{'form.'.$formelement.'.filename'};
-        &Apache::lonnet::clean_filename($fname);
+        my $fname = &Apache::lonnet::clean_filename($env{'form.'.$formelement.'.filename'});
         my $url = '/uploaded/'.$udom.'/'.$uname.'/'.$prefix.$path.'/'.$fname;
         my @stat = &Apache::lonnet::stat_file($url);
         if (@stat && $stat[0] ne 'no_such_dir') {