I have the below lotus script that anyone can use to see the problem.  All you need to do is create a new database with a single document in it.  Add this LotusScript agent and then run it.  It will look for a document and if one exist it will then check for the field called test.  If it does not exist it will add it.  Next it uses a loop changing the field value from 1 to 0 or 0 to 1 and then save the document causing a bunch of writes in a short period of time.  When these events occur very fast in microseconds the modified date will begin going into the future.  Does IBM plan to resolve this issue so that the modified date is accurate?  Thank you.

Sub Initialize
      On Error Resume Next
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim dc As NotesDocumentCollection
      Dim doc As NotesDocument
      Dim answer As Integer
      Dim strItemValue As Variant
      Dim Counter As Integer
       
      Set db = session.CurrentDatabase
      Set dc = db.UnprocessedDocuments
      Set doc = dc.GetFirstDocument
 
   'We first need to check and make sure we have a document
   'If not we exit.
      If(doc Is Nothing) Then
             Exit Sub
      End If
       
      'Now let's check to see if this doc has the test field
      'We are using the test field so it should not.  If it
      'does have this field then we really should not mess with
      'this document and exit.  The field may have been for
      'something else.  If not then we will add it.
      If (doc.Hasitem("test")) Then
             Call doc.Save(False, True)
             Exit Sub
      Else
             Call doc.Appenditemvalue("test", "0")
             Call doc.Save(False, True)
      End If
       
       
      'Now we can start our loop to look at test to see if it
      'equals 0, if so we change it to 1.  If not we change
      'change it to 0.  This loops 10,000 times.
      Counter = 0
      Do While (Counter < 10000)
             strItemValue = doc.Getitemvalue("test")
             If (strItemValue(0) = "0") Then
                    Call doc.ReplaceItemValue("test", "1")
                    Call doc.Save(False, True)
             Else
                    Call doc.ReplaceItemValue("test", "0")
                    Call doc.Save(False, True)
             End If
             
             Counter = Counter + 1
      Loop
       
      'Now we can remove the field because no longer needed.
      Call doc.RemoveItem("test")
      Call doc.Save(False, True)
End Sub