From 69e8c4b48e3423e2201135c81a1f2c8550a2d365 Mon Sep 17 00:00:00 2001
From: Ralph Lange <Ralph.Lange@gmx.de>
Date: Mon, 28 Jul 2014 16:19:42 +0200
Subject: [PATCH] std/rec: Improve subRecord error messages

---
 src/std/rec/subRecord.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/std/rec/subRecord.c b/src/std/rec/subRecord.c
index d081459e4..9e4c1875f 100644
--- a/src/std/rec/subRecord.c
+++ b/src/std/rec/subRecord.c
@@ -110,7 +110,7 @@ static long init_record(subRecord *prec, int pass)
         /* convert the initialization subroutine name  */
         psubroutine = (SUBFUNCPTR)registryFunctionFind(prec->inam);
         if (psubroutine == 0) {
-            recGblRecordError(S_db_BadSub, (void *)prec, "recSub(init_record)");
+            recGblRecordError(S_db_BadSub, (void *)prec, "Init subroutine (INAM)");
             return S_db_BadSub;
         }
         /* invoke the initialization subroutine */
@@ -124,7 +124,7 @@ static long init_record(subRecord *prec, int pass)
     }
     prec->sadr = (SUBFUNCPTR)registryFunctionFind(prec->snam);
     if (prec->sadr == NULL) {
-        recGblRecordError(S_db_BadSub, (void *)prec, "recSub(init_record)");
+        recGblRecordError(S_db_BadSub, (void *)prec, "Proc subroutine (SNAM)");
         return S_db_BadSub;
     }
     prec->mlst = prec->val;