diff --git a/org/qmckl_error.org b/org/qmckl_error.org
index 0ee7719..046680d 100644
--- a/org/qmckl_error.org
+++ b/org/qmckl_error.org
@@ -627,10 +627,10 @@ qmckl_exit_code
 qmckl_check(qmckl_context context, qmckl_exit_code rc)
 {  
 
-  char fname[QMCKL_MAX_FUN_LEN];
-  char message[QMCKL_MAX_MSG_LEN];
-
   if (rc != QMCKL_SUCCESS) {
+    char fname[QMCKL_MAX_FUN_LEN];
+    char message[QMCKL_MAX_MSG_LEN];
+
     fprintf(stderr, "===========\nQMCKL ERROR\n%s\n", qmckl_string_of_error(rc));
     qmckl_get_error(context, &rc, fname, message);
     fprintf(stderr, "Function: %s\nMessage: %s\n===========\n", fname, message);