diff --git a/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st b/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st
index 32c3a59a..9316d004 100644
--- a/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st
+++ b/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st
@@ -2,5 +2,6 @@ export
 exportTo: fileRef
 	fileRef
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+				ifTrue: [ fileStream truncate ].
 			STON put: self onStreamPretty: fileStream ]
\ No newline at end of file
diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st
index e3dd6a4b..0865b79a 100644
--- a/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st
+++ b/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st
@@ -18,7 +18,8 @@ newRegistryNamed: registryName ensure: ensure
 	stonesRegistry at: registryName put: stoneRegistry registryPath.
 	self configFile
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+				ifTrue: [ fileStream truncate ].
 			STON put: stonesRegistry onStreamPretty: fileStream ].
 	stoneRegistry export.
 	^ stoneRegistry
\ No newline at end of file
diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st
index c002efd1..feb3cdde 100644
--- a/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st
+++ b/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st
@@ -2,5 +2,6 @@ export
 export
 	self class configFile
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+				ifTrue: [ fileStream truncate ].
 			STON put: self onStreamPretty: fileStream ].
\ No newline at end of file