port-count-lines. Something's still broken.

get-module-bytecode.rkt

@@ -80,6 +80,7 @@
                  ;; Note: we're trying to preserve the context, to avoid code expansion.
                  [compile-context-preservation-enabled #t]
                  [current-namespace base-namespace])
+    (port-count-lines! ip)
     (define stx (read-syntax (object-name ip) ip))
     
     ;(printf "got stx; now expanding out the images\n")

version.rkt

@@ -6,4 +6,4 @@
 
 (provide version)
 (: version String)
-(define version "1.54")
+(define version "1.55")