diff --git a/src/comp/middle/trans.rs b/src/comp/middle/trans.rs
index 483ba7f382f..bf22b237cc1 100644
--- a/src/comp/middle/trans.rs
+++ b/src/comp/middle/trans.rs
@@ -261,6 +261,7 @@ fn T_taskptr() -> TypeRef {
 fn type_of(@crate_ctxt cx, @typeck.ty t) -> TypeRef {
     let TypeRef llty = type_of_inner(cx, t);
     check (llty as int != 0);
+    llvm.LLVMAddTypeName(cx.llmod, _str.buf(typeck.ty_to_str(t)), llty);
     ret llty;
 }