diff --git a/source/utilities/elements.bas b/source/utilities/elements.bas
index b6f124bc4..891a2342d 100644
--- a/source/utilities/elements.bas
+++ b/source/utilities/elements.bas
@@ -118,7 +118,7 @@ FUNCTION getelementsbefore$ (a$, i1)
 END FUNCTION
 
 FUNCTION getelementsafter$ (a$, i1)
-    DIM p AS LONG, n AS LONG, i AS LONG, i1pos AS LONG
+    DIM p AS LONG, n AS LONG, i AS LONG
 
     n = 1
     p = 1