diff --git a/flash2d/src/options-sphere/IO_vtu_stacked.F90 b/flash2d/src/options-sphere/IO_vtu_stacked.F90
index cb83bae98ec4aa005b8def94771aacbe9f2ae088..7ec16c980f220b1c756b72b1515a7832f48e67d9 100644
--- a/flash2d/src/options-sphere/IO_vtu_stacked.F90
+++ b/flash2d/src/options-sphere/IO_vtu_stacked.F90
@@ -132,6 +132,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
   REAL (KIND = GRID_SR), DIMENSION(:,:), POINTER :: r_stcval
   INTEGER( KIND = GRID_SI)                       :: i_stcbeg
   INTEGER( KIND = GRID_SI)                       :: i_stcend
+  CHARACTER (len=12)                             :: c_layer
 #endif
 
   INTEGER (KIND = GRID_SI), DIMENSION(:,:), ALLOCATABLE     :: i_cellnodes
@@ -394,7 +395,8 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
 	END IF
     DO i_cnt = 1, i_nodedata
       IF (p_nodedata(i_cnt)%c_name(1:5) == 'layer') THEN
-        READ(i_hcnt,'(I8)') p_nodedata(i_cnt)%c_name(6:32)
+        c_layer = p_nodedata(i_cnt)%c_name(6:15)
+        READ(i_hcnt,'(I8)') c_layer
         i_stcbeg = p_mesh%i_nnumber*(i_hcnt-1)+1
         i_stcend = p_mesh%i_nnumber*i_hcnt
         r_stcval(1:1,i_stcbeg:i_stcend) = p_nodedata(i_cnt)%p_vdata(1:1,:)