typo
diff --git a/vms_make.com b/vms_make.com
index 7d27684..1aa83e7 100644
--- a/vms_make.com
+++ b/vms_make.com
@@ -57,7 +57,7 @@
 $ s_case  = false
 $ liblist = ""
 $!
-$ whoami = f$parse(f$enviornment("Procedure"),,,,"NO_CONCEAL")
+$ whoami = f$parse(f$environment("Procedure"),,,,"NO_CONCEAL")
 $ mydef  = F$parse(whoami,,,"DEVICE")
 $ mydir  = f$parse(whoami,,,"DIRECTORY") - "]["
 $ myproc = f$parse(whoami,,,"Name") + f$parse(whoami,,,"type")