--- loncom/interface/loncommon.pm	2011/06/13 17:40:58	1.1013
+++ loncom/interface/loncommon.pm	2011/07/04 09:24:58	1.1014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1013 2011/06/13 17:40:58 raeburn Exp $
+# $Id: loncommon.pm,v 1.1014 2011/07/04 09:24:58 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1758,7 +1758,7 @@ sub create_workbook {
         return (undef);
     }
     #
-    $workbook->set_tempdir('/home/httpd/perl/tmp');
+    $workbook->set_tempdir(LONCAPA::tempdir());
     #
     my $format = &Apache::loncommon::define_excel_formats($workbook);
     return ($workbook,$filename,$format);