From 12e430dddfbe92be2edc5a680437867a26f1cbc4 Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=B6rn=20Adamczewski-Musch?= <j.adamczewski@gsi.de>
Date: Thu, 28 Nov 2013 17:06:19 +0100
Subject: [PATCH] Second try to fix tcl issue in allParam for Suse 13.1

---
 allParam/tcl/tclParam.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/allParam/tcl/tclParam.c b/allParam/tcl/tclParam.c
index 71efd95..5252040 100644
--- a/allParam/tcl/tclParam.c
+++ b/allParam/tcl/tclParam.c
@@ -19,12 +19,14 @@ static const char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuild
 #include <sys/stat.h>
 #include <sys/utsname.h>
 
+/* required for tcl>v8.6 thanks to Christian Simon for this hint:*/
+#define USE_INTERP_RESULT
+
+
 #include <tcl.h>
 
 #include "../include/allParam.h"
 
-/* required for tcl>v8.6 thanks to Christian Simon for this hint:*/
-#define USE_INTERP_RESULT
 
 /* Allow for registration of a user routine for output of error
  * messages and provide a default one
-- 
2.43.0