From 93567da529ea46fcecebd3694a21cb906ec3cb7c Mon Sep 17 00:00:00 2001
From: Giles Atkinson <“gatk555@gmail.com”>
Date: Thu, 7 May 2026 18:14:31 +0100
Subject: [PATCH] Do not report an error when correctly indexing a length-1
 vector.

---
 src/frontend/evaluate.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/frontend/evaluate.c b/src/frontend/evaluate.c
index 01127e1d0..4290a4ee3 100644
--- a/src/frontend/evaluate.c
+++ b/src/frontend/evaluate.c
@@ -720,15 +720,15 @@ op_ind(struct pnode *arg1, struct pnode *arg2)
         /* Just in case we were sloppy */
         v->v_numdims = 1;
         v->v_dims[0] = v->v_length;
-        if (v->v_length <= 1) {
-            fprintf(cp_err, "Error: indexing a scalar (%s)\n",
+        if (v->v_length < 1) {
+            fprintf(cp_err, "Error: indexing empty vector (%s)\n",
                     v->v_name);
             return (NULL);
         }
     }
 
     if (ind->v_length != 1) {
-        fprintf(cp_err, "Error:strchr %s is not of length 1\n",
+        fprintf(cp_err, "Error: index vector %s is not of length 1\n",
                 ind->v_name);
         return (NULL);
     }