---

yaml
---
r: 494
b: refs/heads/master
c: 18beb7a
h: refs/heads/master
v: v3

Author: mbebenita

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 8ac15c684481ea5b60f85c3f57b63e89a261e7dd
+refs/heads/master: 18beb7a33db3f3e57f445ba42984b8892e0dfce5

trunk/src/boot/me/trans.ml

@@ -2258,8 +2258,17 @@ let trans_visitor
     trans_void_upcall "upcall_join" [| trans_atom (Ast.ATOM_lval task) |]
 
   and trans_send (chan:Ast.lval) (src:Ast.lval) : unit =
-    let (srccell, _) = trans_lval src in
-      aliasing false srccell
+    let (src_cell, src_ty) = trans_lval src in
+      begin
+        match (ty_mem_ctrl src_ty) with
+          | MEM_rc_opaque
+          | MEM_rc_struct
+          | MEM_gc ->
+              iflog (fun _ -> annotate "incr_refcount of src obj");
+              incr_refcount src_cell;
+          | _ -> ()
+      end;
+      aliasing false src_cell
         begin
           fun src_alias ->
             trans_void_upcall "upcall_send"