Change to better null trimming in parser.

parse-map.scm

@@ -90,9 +90,8 @@
                 MAPPLANES)
                (u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; width
                (u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; height
-               (string-filter           ; name
-                (bytevector->string (get-bytevector-n port 16) "ASCII")
-                (lambda (c) (not (eq? c #\nul))))
+               (string-trim-right (bytevector->string (get-bytevector-n port 16) "ASCII")
+                                  #\nul)
                ;; (bytevector->string (get-bytevector-n port  4) "ASCII") ; "!ID!"
                ))))
       (get-offsets maphead)))