(define (load-image filename)
  (print "Loading file " filename)
  (with-input-from-file
      filename
    (lambda ()
      (do ((b1 (read-byte))
           (b2 (read-byte))
           (b3 (read-byte))
           (b4 (read-byte)))
          (eof-object? b4)
        (print *ip*)
        (print (bytes->cell b1 b2 b3 b4))
        (s32vector-set! *m* *ip* (bytes->cell b1 b2 b3 b4))
        (set! *ip* (add1 *ip*))))))


;; where's my error?