diff --git a/src/main/entity.cl b/src/main/entity.cl
index 7358046..43533f4 100644
--- a/src/main/entity.cl
+++ b/src/main/entity.cl
@@ -126,8 +126,10 @@ used to call `reinitialize-instance' on the entity."))
   (let ((file-stream (slot-value entity 'file-stream)))
     (if (and (streamp file-stream) (open-stream-p file-stream))
 	file-stream
-	(setf (slot-value entity 'file-stream)
-	      (open (entity-pathname entity) :direction :input)))))
+	(let ((stream (open (entity-pathname entity) :direction :input)))
+	  (setf (slot-value entity 'last-modified) (file-write-date stream)
+		(slot-value entity 'file-stream) stream)
+	  stream))))
 
 (defclass cached-entity-mixin ()
   ((rendered-body)))