diff --git a/libraries/base/common/src/vhdl/common_str_pkg.vhd b/libraries/base/common/src/vhdl/common_str_pkg.vhd
index cda0f3672e1b164d7156a455166ae428c340b609..c6adcaad935043c1eabd4dc0a0b674ab3a0c524a 100644
--- a/libraries/base/common/src/vhdl/common_str_pkg.vhd
+++ b/libraries/base/common/src/vhdl/common_str_pkg.vhd
@@ -57,6 +57,7 @@ PACKAGE common_str_pkg IS
   FUNCTION real_to_str(re: REAL; width : INTEGER; digits : INTEGER) RETURN STRING;
 
   PROCEDURE print_str(str : STRING);
+  PROCEDURE print_str(str: STRING; enable: BOOLEAN);
 
   FUNCTION str_to_ascii_integer_arr(s: STRING) RETURN t_integer_arr;
   FUNCTION str_to_ascii_slv_8_arr(  s: STRING) RETURN t_slv_8_arr;
@@ -262,13 +263,21 @@ PACKAGE BODY common_str_pkg IS
   END;
 
   PROCEDURE print_str(str: STRING) IS
-  VARIABLE v_line: LINE;
+    VARIABLE v_line: LINE;
   BEGIN
     write(v_line, str);
     writeline(output, v_line);
     deallocate(v_line);
   END;
 
+  PROCEDURE print_str(str: STRING; enable: BOOLEAN) IS
+    VARIABLE v_line: LINE;
+  BEGIN
+    IF enable THEN
+      print_str(str);
+    END IF;
+  END;
+
   FUNCTION str_to_ascii_integer_arr(s: STRING) RETURN t_integer_arr IS
     VARIABLE r: t_integer_arr(0 TO s'RIGHT-1);
   BEGIN