--- a/src/prepare.sml	Sat Apr 25 14:47:16 2009 -0400
+++ b/src/prepare.sml	Sun Apr 26 09:02:17 2009 -0400
@@ -156,6 +156,14 @@
             ((EError (e, t), loc), sns)
         end
 
+      | EReturnBlob {blob, mimeType, t} =>
+        let
+            val (blob, sns) = prepExp (blob, sns)
+            val (mimeType, sns) = prepExp (mimeType, sns)
+        in
+            ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), sns)
+        end
+
       | EWrite e =>
         let
             val (e, sns) = prepExp (e, sns)