--- loncom/publisher/testbankimport.pm	2012/12/16 19:04:35	1.36
+++ loncom/publisher/testbankimport.pm	2012/12/16 20:06:44	1.37
@@ -1,5 +1,5 @@
 # Handler for parsing text upload problem descriptions into .problems
-# $Id: testbankimport.pm,v 1.36 2012/12/16 19:04:35 raeburn Exp $
+# $Id: testbankimport.pm,v 1.37 2012/12/16 20:06:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1578,6 +1578,7 @@ sub create_ess {
          if (open(PROB,">$destdir$libfile")) {
              print PROB $output;
              close(PROB);
+             $result = 'ok';
          } else {
              $result = 'failed';
          }