From ed4ad20adf27a78c4bf7b10c0f976a2c044a37bf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ren=C3=A9=20Jansen?= <rvjansen@xs4all.nl>
Date: Wed, 19 Jul 2023 18:02:56 +0200
Subject: [PATCH] use getenv for crexx

---
 bin/crexx.rexx | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/crexx.rexx b/bin/crexx.rexx
index a56a7bec3..fe8cee034 100644
--- a/bin/crexx.rexx
+++ b/bin/crexx.rexx
@@ -43,9 +43,9 @@ do i=1 to fn.0
 end -- do i
 
 /* figure out the path for libraries etc */
-crexxhome=.string[]
-address cmd 'printenv CREXX_HOME' output crexxhome
-rxpath=crexxhome[1]
+rxpath=''
+env_wanted='CREXX_HOME'
+assembler getenv rxpath,env_wanted
 
 if verbose then call logo
 if verbose then say 'using CREXX_HOME:' rxpath