---

yaml
---
r: 854
b: refs/heads/master
c: 3d0da75
h: refs/heads/master
v: v3

Author: pcwalton

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 7e3c662b4f52aa7b35ba5e0ce5d09154687a9140
+refs/heads/master: 3d0da7545588e22c734c21d1bf81d610a3d3f3cc

trunk/src/boot/me/resolve.ml

@@ -178,10 +178,11 @@ let all_item_collecting_visitor
             note_header i.id f.Ast.fn_input_slots;
         | Ast.MOD_ITEM_obj ob ->
             note_header i.id ob.Ast.obj_state;
-        | Ast.MOD_ITEM_tag (hdr, oid, _) ->
-            note_header i.id hdr;
-            Hashtbl.replace cx.ctxt_user_tag_names oid
-              (path_to_name cx.ctxt_curr_path);
+        | Ast.MOD_ITEM_tag (hdr, _, _) ->
+            note_header i.id hdr
+        | Ast.MOD_ITEM_type (_, Ast.TY_tag ttag) ->
+            Hashtbl.replace cx.ctxt_user_tag_names ttag.Ast.tag_id
+              (path_to_name cx.ctxt_curr_path)
         | _ -> ()
     end;
       inner.Walk.visit_mod_item_pre n p i