diff --git a/Windream/Windream.vb b/Windream/Windream.vb
index bb6de4bf..b51de9ed 100644
--- a/Windream/Windream.vb
+++ b/Windream/Windream.vb
@@ -704,7 +704,8 @@ Public Class Windream
         End Try
     End Function
 
-    Public Function NewFileStream(ByVal FilenameSource As String, ByVal FilenameTarget As String) As Boolean
+    Public Function NewFileStream(ByVal FilenameSource As String, ByVal FilenameTarget As String, ByVal WMObjecttypeName As String) As Boolean
+
         NewDocumentID = 0
         Dim oExtension As String = Path.GetExtension(FilenameSource)
 
@@ -776,6 +777,10 @@ Public Class Windream
             _logger.Debug("Closing Stream")
             oWMStream.Close()
             _logger.Debug("Saving new object")
+
+
+            oWMObject.aObjectType = GetObjectByName(WMObjecttypeName, WMEntityObjectType)
+
             oWMObject.Save()
             _logger.Debug("Unlocking new object")
             oWMObject.unlock()