diff --git a/compiler/lib/code.ml b/compiler/lib/code.ml
index 196b204c54..a14cdc5e70 100644
--- a/compiler/lib/code.ml
+++ b/compiler/lib/code.ml
@@ -154,8 +154,7 @@ end = struct
 
   let to_string ?origin i = Var_printer.to_string printer ?origin i
 
-  (*let print f x = Format.fprintf f "v%d" x*)
-  let print f x = Format.fprintf f "%s" (to_string x)
+  let print f x = Format.fprintf f "v%d" x
 
   (* Format.fprintf f "%s" (to_string x) *)