diff --git a/collects/mred/private/snipfile.rkt b/collects/mred/private/snipfile.rkt
index f763ea6099..d75c43de2b 100644
--- a/collects/mred/private/snipfile.rkt
+++ b/collects/mred/private/snipfile.rkt
@@ -327,8 +327,8 @@
             (values (open-input-text-editor t 0 'end values filename) #t))]
          [else (values p #f)]))
       (when changed?
-	(port-count-lines! p)) ; in case it's new
-      (values p filename changed?)))
+	(port-count-lines! new-p)) ; in case it's new
+      (values new-p filename changed?)))
 
   (define (open-input-graphical-file filename)
     (let-values ([(p name wxme?) (build-input-port filename)])