Fix parsing of multiline comments from ports without line numbers.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 7ca6855d3e0709a3384d5e8458406d950e4ebd13..cb34fad2ec3a2187f3ae57208b3320ea98fc7edb 100644 (file)
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -338,7 +338,9 @@ USA.
 
   ;; Start the machine.
   ;; If we're past the second line, just discard.
-  (if (and (< (current-line port db) 2)
+  (if (and (let ((line (current-line port db)))
+            (and line
+                 (< line 2)))
           (db-enable-file-attributes-parsing db))
       (scan)
       (discard 0 continue-parsing)))