diff --git a/src/Soil-Core/SoilBackupVisitor.class.st b/src/Soil-Core/SoilBackupVisitor.class.st
index 6a3d0ba4..cb0a7c42 100644
--- a/src/Soil-Core/SoilBackupVisitor.class.st
+++ b/src/Soil-Core/SoilBackupVisitor.class.st
@@ -76,6 +76,18 @@ SoilBackupVisitor >> target: aSoil [
 	target := aSoil
 ]
 
+{ #category : #visiting }
+SoilBackupVisitor >> visitDatabaseJournal: aSoilJournal [ 
+	(target path / #journal) ensureCreateDirectory.
+	^ super visitDatabaseJournal: aSoilJournal
+]
+
+{ #category : #visiting }
+SoilBackupVisitor >> visitJournalFragmentFile: aSoilJournalFragmentFile [ 
+	aSoilJournalFragmentFile copyTo: target journal path / aSoilJournalFragmentFile basename.
+	^ aSoilJournalFragmentFile 
+]
+
 { #category : #visiting }
 SoilBackupVisitor >> visitMetaSegment: aSoilMetaSegment [ 
 	self visit: aSoilMetaSegment indexManager.
diff --git a/src/Soil-Core/SoilJournalFragmentFile.class.st b/src/Soil-Core/SoilJournalFragmentFile.class.st
index 623906f2..c9833805 100644
--- a/src/Soil-Core/SoilJournalFragmentFile.class.st
+++ b/src/Soil-Core/SoilJournalFragmentFile.class.st
@@ -34,11 +34,21 @@ SoilJournalFragmentFile >> appendEntry: aSoilJournalEntry [
 
 ]
 
+{ #category : #accessing }
+SoilJournalFragmentFile >> basename [ 
+	^ path basename
+]
+
 { #category : #'initialize-release' }
 SoilJournalFragmentFile >> close [
 	stream close
 ]
 
+{ #category : #copying }
+SoilJournalFragmentFile >> copyTo: aPath [ 
+	path copyTo: aPath
+]
+
 { #category : #'instance creation' }
 SoilJournalFragmentFile >> create [
 	path ensureCreateFile