lilypond-1.1.13

diff --git a/lily/paper-outputter.cc b/lily/paper-outputter.cc
index bfab233f072e0d716a5acc8619855a9d9bab23a8..b7074ad29548350d3145b614ce07d26ee0792e07 100644 (file)
--- a/lily/paper-outputter.cc
+++ b/lily/paper-outputter.cc
@@ -39,6 +39,12 @@ Paper_outputter::~Paper_outputter ()
 void
 Paper_outputter::output_header ()
 {
+ 
+  if (safe_global_b)
+    {
+      ly_set_scm ("security-paranoia", SCM_BOOL_T);
+      gh_eval_str ("(set! security-paranoia #t)");
+    }
   String s = String ("(eval (") + output_global_ch + "-scm 'all-definitions))";
   gh_eval_str (s.ch_C());