diff --git a/vm-pictures.rkt b/vm-pictures.rkt
index 9af5b5f..9a4254a 100644
--- a/vm-pictures.rkt
+++ b/vm-pictures.rkt
@@ -80,16 +80,18 @@
 (define (local-leg p)
   (leg p 0 (default-leg-height)))
 
-(define (render p #:target [target 'eps])
+(define (render p #:target [target (string->symbol (or (getenv "VM_PICTURES_TARGET") "eps"))])
+  (define final-pict (cc-superimpose (blank (+ (pict-width p) (* 2 (final-border)))
+					    (+ (pict-height p) (* 2 (final-border))))
+				     (panorama p)))
   (case target
     [(screen)
      ;; FFS. This connects to the display even if you don't use it.
      ;; (local-require racket/gui/base)
-     ;; (show-pict (panorama p) 800 600)
+     ;; (show-pict final-pict 800 600)
      (log-error "You need to uncomment a couple of lines in vm-pictures.rkt")
      (void)]
+    [(png)
+     (display (convert final-pict 'png-bytes))]
     [(eps)
-     (display (convert (cc-superimpose (blank (+ (pict-width p) (* 2 (final-border)))
-					      (+ (pict-height p) (* 2 (final-border))))
-				       (panorama p))
-		       'eps-bytes))]))
+     (display (convert final-pict 'eps-bytes))]))