From 1d7bdb72dee7eed289ff5f3b4438961dc7f81ed9 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:45:05 +0000
Subject: [PATCH] lilypond-1.1.13

---
 lily/paper-outputter.cc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lily/paper-outputter.cc b/lily/paper-outputter.cc
index bfab233f07..b7074ad295 100644
--- 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());
   
-- 
2.39.5