diff --git a/bin/tools/CleanFunctions b/bin/tools/CleanFunctions
index 1577d5583c..4f0ceb4023 100644
--- a/bin/tools/CleanFunctions
+++ b/bin/tools/CleanFunctions
@@ -88,7 +88,7 @@ removeCase ()
 
 cleanSamples ()
 {
-    rm -rf {samples,sampleSurfaces} > /dev/null 2>&1
+    rm -rf {sets,samples,sampleSurfaces} > /dev/null 2>&1
 }
 
 cleanUcomponents ()
diff --git a/tutorials/mhdFoam/Allrun b/tutorials/mhdFoam/Allrun
index df0077cf05..aca66b3533 100755
--- a/tutorials/mhdFoam/Allrun
+++ b/tutorials/mhdFoam/Allrun
@@ -3,8 +3,9 @@
 . $WM_PROJECT_DIR/bin/tools/RunFunctions
 
 # Get application name from directory
-application="mdEquilibrationFoam"
+application="mhdFoam"
 
 (cd hartmann && runApplication blockMesh)
 (cd hartmann && runApplication $application)
+(cd hartmann && runApplication foamCalc components U)
 (cd hartmann && runApplication sample)
diff --git a/tutorials/mhdFoam/hartmann/system/sampleDict b/tutorials/mhdFoam/hartmann/system/sampleDict
index d7c5a97c45..e62120c869 100644
--- a/tutorials/mhdFoam/hartmann/system/sampleDict
+++ b/tutorials/mhdFoam/hartmann/system/sampleDict
@@ -18,9 +18,9 @@ interpolationScheme cellPoint;
 
 setFormat     raw;
 
-sets      
+sets
 (
-    line_centreProfile 
+    line_centreProfile
     {
         type            uniform;
 
@@ -34,9 +34,9 @@ sets
 surfaces
 ();
 
-fields          
+fields
 (
-    U.component(0)
+    Ux
 );
 
 // ************************************************************************* //