diff --git a/tools/snapshot-update.lisp b/tools/snapshot-update.lisp
index ce45bbcbd23d7871d34cd309215485f882b3ab87..7619ee6bfd5d3b9f8d336708f60bf669c8159ee0 100644
--- a/tools/snapshot-update.lisp
+++ b/tools/snapshot-update.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/snapshot-update.lisp,v 1.1 1992/01/07 17:24:11 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/snapshot-update.lisp,v 1.2 1992/02/24 14:23:25 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,11 +19,13 @@
 (defun snapshot-updates (&key (snapshot-file "RCSSNAP")
 			      (output
 			       (make-pathname
-				:defaults (pathname-name snapshot-file)
-				:type "updates")))
+				:defaults (pathname snapshot-file)
+				:type "updates"))
+			      from)
   "Write to :OUTPUT a summary of the RCS change long entries since the
    since the specified :SNAPSHOT was made.  :OUTPUT is passed through to
-   run-program, and should be a stream or pathname."
+   run-program, and should be a stream or pathname.  If true, :FROM is a string
+   in RCS date format.  Only revisions after that date will be reported."
   (with-open-file (script "/tmp/update-script" :direction :output)
     (with-open-file (in snapshot-file :direction :input)
       (loop
@@ -31,9 +33,10 @@
 	  (unless line (return))
 	  (let* ((tab (position #\tab line))
 		 (dot (position #\. line :from-end t)))
-	    (format script "rlog -r~A~D- ~A~%"
+	    (format script "rlog -r~A~D- ~@['-d>~A' ~]~A~%"
 		    (subseq line (1+ tab) (1+ dot))
 		    (1+ (parse-integer (subseq line (1+ dot))))
+		    from
 		    (subseq line 0 tab)))))))
 
   (let ((cmd (format nil