     visibleCells.put translatedCell, state
   return exportField visibleCells
 
-showExporDialog = (sdata) ->
+showExportDialog = (sdata) ->
   E('export').value = sdata
   E('export-dialog').style.display = ''
   E('export').focus()
   E('export').select()
   
 doExportVisible = ->
-  showExporDialog stringifyFieldData encodeVisible()
+  n = application.getGroup().n
+  m = application.getGroup().m
+  data = stringifyFieldData encodeVisible()
+  showExportDialog "#{n}$#{m}$#{data}"
   
 doShowImport = ->
   E('import-dialog').style.display = ''

updatePlayButtons()
redrawLoop()

application.saveDialog.show()

#  return parts.join " "
  
doExport = ->
  data = stringifyFieldData exportField application.cells
  n = application.getGroup().n
  m = application.getGroup().m
  showExportDialog "#{n}$#{m}$#{data}"

doExportClose = ->
  E('export-dialog').style.display = 'none'
