diff --git a/lib/print.tcl b/lib/print.tcl
index d184c54..d29dd27 100755
--- a/lib/print.tcl
+++ b/lib/print.tcl
@@ -119,6 +119,7 @@
 
   global env
   if { [get_var ::env(GEN_PRINT_DEBUG) 0] } { return $buffer }
+  if { [get_var ::env(DEBUG_SHOW_PASSWORDS) 0] } { return $buffer }
 
   global password_regex